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ABSTRACT 


Most of the casualties incurred during a fire are due to 
the smoke generated. An understanding of the way smoke and 
fire spread during a fire would provide a valuable tool to 
save lives and minimize damage. The Naval Research 
Laboratory maintains a full scale test facility called Fire- 
1. The computer model developed in this thesis is based on 
the actual geometry of Fire-1 and uses field modeling. It 
is a three dimensional, finite difference model using 
primitive variables. The model includes local and global 
pressure corrections, surface radiation , turbulence, strong 
buoyancy, and conjugate boundary conditions. Given heat 
input data, the computer code produces pressure, 
temperature, density, and velocity fields. Experimental 
fire tests conducted in Fire-1 are used to validate the 
computer code. Reasonable agreement in the results has been 
found. Because of the model's ability to account for 
pressure, temperature and smoke buildup, its envisioned use 


is to predict fires aboard ships and submarines. 
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I. INTRODUCTION 


A. BACKGROUND 

A fire, particulary in a closed space such as a room, 
can be devastating, especially if it is not contained 
quickly. The danger of a fire lies not only with the flame, 
but with the toxic gases and smoke emitted during 
combustion. When a fire ignites, gases leave the surface 
and mix with air to burn in a turbulent plume causing a hot 
layer to form below a room ceiling. Unignited objects are 
being heated primarily by radiation from the chemically 
reacting flame gases and incandescent soot and to a smaller 
degree by actual contact with the hot gases. The rate by 
which these objects are heated is similar, causing them to 
ignite approximately at the same time. When this happens, 
there is a sudden engulfment of the room in flames. 

The fire safety procedures in practice today are a 
result of trial and error. To perfect these life saving 
procedures, a detailed understanding of the fundamental 
phenomena such as combustion, heat and mass’ transfer, 
gaseous radiation, and the flow of gases must be obtained. 
With this understanding incorporated into the design of 
enclosed spaces, it is hoped that the probability of 
ignition and fire spread is kept relatively low. And should 


a fire break out, those inside should be warned in ample 


time in order to extinguish the fire quickly. The ultimate 
goal is to keep life and property losses at a minimum. 

The. phenomenon of a fire Senge together heat transite 
thermodynamics, chemistry, and aerodynamics plus a 
dependence on the geometry of the space in which the fire 
occurs. To predict the nature of a fire, extensive research 
1s required to find out how fire and smoke spread throughout 
a closed space. This research can be carried out either by 
experimental work or by a computer model. 

Experimental work has been ongoing in the area of fire 
research. Because of the many phenomena involved in a fire, 
attempts to apply scaling laws are difficult. Without these 
scaling laws, the use of small inexpensive tests can no 
longer be used to predict what will actually happen in a 
large scale fire. The alternative is to conduct full scale 
tests that are expensive and somewhat dangerous. Not only 
one, but many tests are required to ensure the reliability 
of the data collected. To test another scenario, the test 
facility would have to be modified, which is again both time 
consuming and expensive. The physical limitations of the 
facility alone would limit the types of experiments that 
could be performed. 

The recent advancement in computer speed and storage 
capability has led to the ability to solve a system of 
complex partial differential equations that was difficult to 


attempt before. The various phenomena of a fire are 


approximated by simpler models which become building blocks 
that can be expanded to eventually model the fire 
accurately. Present day computer models do give reasonable 
approximations to what actually happens during experimental 
fire tests. That is why at present it is‘still important to 
verify a computer model with an experimental test. Once 
verified, a computer model can then be modified to adapt to 
a number of scenarios in order to screen for the one 
scenario that is potentially the most dangerous. This 
scenario can be further explored by an experimental test. 
This eliminates randomly chosen scenarios to conduct 
expensive tests. The computer model provides additional 
information unavailable by experimental means. For example 
the velocity and temperature fields at various time 
intervals can be determined and plotted to see how a fire 
spreads. This can reveal areas that require additional 
experimental data collection. The computer code will be a 
very powerful tool in predicting fires in other facilities 
with different geometries once the code reaches completion. 
Two different types of fire modeling procedures have 
been developed: 
1) The modular or zone modeling is based on dividing a 
compartment into distinct regions or control volumes 
[Ref 1]. Examples of these are as follows, fire 
plume, hot upper layer, heating of the wall, etc.. 
All of the control volumes are then interrelated by 
means of mass and energy balances across’ the 
boundaries. This way the entire field is described at 
any given time by the thermodynamic/fluid dynamic 


solution. What actually happens in each individual 
compartment is not always adequately understood. 


2) The differential field equation models, or field 
modeling, is based on dividing the enclosure into many 
finite volume elements. These models have a strong 
reliance on the physics of the fire because the proper 
differential conservation. equations are used to 
calculate the mass, momentum, energy and smoke 
concentration with the appropriate initial and 
boundary conditions being applied. For each small 
volume of gas, the conservation equations for 
characteristic properties such as temperature, 
pressure, density, concentration and velocity are 
monitored to determine the properties of the field at 
that time. Physical effects such as turbulence and 
radiation are easily integrated in this field model, 
but the overall results will depend on the accuracy of 
these interactive models. 

Field models provide the most detailed information about 
a fire. This information comes at the expense of requiring 
a large amount of computer resources. The model must have a 
large number of cells to obtain satisfactory results which 
does restrict the ability of present day computers to 
provide real time simulations. 

Prior work in the area of field modeling has revealed 
many conclusions as to how hot gases and smoke spread. Work 
done at the University of Notre Dame [Refs. 2,3] involves 
the study of aircraft cabin fires. In dealing with aircraft 
cabins, a two dimensional finite difference algorithm was 
used to modeled turbulent buoyant flows. This program 
monitored how temperature, smoke concentration, and hot 
gases vary in seating areas. Another two dimensional field 
model developed at the University of Notre Dame [Ref 4:pp. 
1721-1732] describes transient cooling by natural convection 


using a fully transient semi-implicit upwind differencing 


scheme with global pressure correction that provided good 


results with experimental data. This was for a square 
enclosure with one vertical wall cooled and the other three 
walls insulated. a 

Within the past few years a great deal of progress has 
been made on the numerical solution of the set of coupled 
partial differential equations that govern the natural 
convection process in enclosures. Field models that have 
been developed for three dimensional rectangular enclosures 
(Refs. 5-13], use the finite differencing method because of 
its relative ease of use and its success in solving 
nonlinear partial differential equations. 

Prior work has also been done in three-dimensional 
cylindrical coordinate buoyant flows [{Refs. 14-20]. Most of 
the cylindrical cavities deal with horizontal cylindrical 
annuli with differential temperatures specified at inner and 
outer cylindrical walls. Numerical studies directly related 
to a horizontal cylinder with differentially heated ends is 
given by Smutek, et al. [{Ref. 19] for low Rayleigh numbers 
and by Yang, et al. [{Ref. 20] for high Rayleigh numbers. 

The stream function-vorticity formulation has been used 
{[Refs. 14-19], to do the numerical calculations on natural 
convection in various geometries. This method has’ the 
advantage of decoupling the pressure terms from the momentum 
equations, thereby satisfying continuity. It does have a 
number of shortcomings which include becoming unstable at 


even moderate Rayleigh numbers. Yang, et al. [{Ref. 20] 


lists these shortcomings, and explains the advantages of 
using a primitive variable formulation with arbitrary 
orthogonal coordinates. } 

The study of natural convection in a spherical annulus 
was conducted by Ozoe, et al. [{Ref. 21] by utilizing the 
vorticity-vector potential formulation and the alternating- 
direction-implicit method for Ra = 500. 

The geometry that is modeled in this thesis is a 
combination of cylindrical and spherical geometries. The 
method developed by Yang, et al. [Ref. 20], is ideal since 
it involves uSing a generalized orthogonal coordinate system 
that can handle complex geometries. The primitive variable 
formulation is also more desirable due to its stability. 
That is why the three dimensional model developed here is an 
extension of the natural convection model in a horizontal 
cylinder developed by Yang, et al. [Ref. 20]. 

Field models involving fires in enclosures have been 
done for room fires [{(Ref. 22], and for a general three 
dimensional enclosure [Ref. 23]. Baum and Rehm [Refs. 24- 
27] have done extensive research into fire modeling. They 
employ time dependent inviscid Boussinesq equations to 
describe a three-dimensional model of buoyant convection and 
aerosol dynamics in their study of fire induced flow and 
smoke coagulation. 

In studying fires, radiation must also be included. 


Lloyd, et al. [{Ref. 28] have done a numerical study on one 


dimensional, surface, gas and soot radiation. Yang [Ref. 
29] extended numerical modeling of natural convection- 
Paadation reactions in multidimensional enclosures. Since 
an efficient overall computational scheme for gaseous 
radiation is still lacking, radiation involving a 
participating medium will not be included in the computer 
model at this time. Only surface to surface radiation is 
considered. 

The Navy has a special interest in fire research. Fires 
aboard ships or submarines result in fatalities and numerous 
injuries, not to mention lost operating days and millions of 
dollars in damages. The Navy has undertaken an extensive 
program to improve the understanding of how a fire spreads 
and to improve the methods of extinguishing a fire quickly. 
Part of the research ongoing includes testing various fire 


extinguishing equipment or various fire resistant materials. 


Bee FLRE-1 TEST FACILITY 

In order to understand the spread of fire and smoke, the 
Naval Research Lab (NRL) has a large test chamber called 
Fire-1 in which full scale fires can be monitored and 
recorded. The computer code developed here is designed EO 
Simulate fires in this facility. This computer model is a 
first step in predicting the behavior of an actual fire on 
board a ship. 

The computer model will be verified by the experimental 


data obtained in Fire-1. It is important to include a brief 


description of this facility. A more detailed report of 
Fire-1 is provided by Alexander, et al. [Ref. 30]). Fire-1 
is a largameone BEesete aan fire testineaciunies that is 
composed of a cylindrical midsection with hemispherical 
endcaps. Both the cylindrical section and the endcaps have 
a 9.6 ft radius, and the overall length is 46.6 ft. In 
other words, it is a very large pressure vessel capable of 
being pressurized to 89.7 psi at 450 F. The test chamber is 
composed of ASTM 285 Grade C steel, 3/8 in thick. The 


physical description can be found in Table 1. 
TABLE 1 
FIRE-1 TESTS SACT Ewer: 


Material 3/8" ASTM 285 Grade C Steel 


Tank Volume: 


Sphere 3,706 CUE. 
Cylinder 7,933. Cuma 
Total 11,639 Cure: 
Radius 9. Guest Ea 
Cylinder Length 27 a4 ete 
Total Length 46.6 ft. 
Pressure Test ASME Code for 75 psi working 
pressure internal 
Design Pressure 89.7 psia at 450 F 
Hydrostatic test 127. 2S 


A fire in Fire-1 is monitored by a number of sensors 
which include pressure transducers, thermocouples, and 
radiometers. The test chamber is also instrumented to 
measure smoke obscuration levels, gas composition and 
humidity. The use of circulation fans can help to predict 
what will happen when ventilation is included. A closed 
circuit television system is also available to record the 
visual examination of the experiment in progress. 

The most important data to the computer model are 
pressure, temperature, and burn rate. The pressure 
transducers are located at the north and south ends of the 
chamber. The temperatures in the chamber are monitored with 
thermocouple arrays located inside the spherical endcaps as 
shown in Fig. 1.1. These are chromel-alumel thermocouples 
with diameters of 0.2 mm and have ceramic insulation 
enclosed in 304 stainless steel jackets 1.0 mm in diameter. 
The burn rate is obtained using round, tapered-edge fire 
pans with various cross-sectional areas, and a constant- 
level, liquid fuel supply system. The calibration of the 
system is described by Alexander, et al. (Ref. 30]. 
Unfortunately, the burn rate data provided up to this point 
has not been accurate. Another way to obtain this data must 
be devised or the calibration must be improved as soon as 
possible, because this data is extremely important in 


verifying the computer code. Until such time that accurate 


Op 





SUOT}EDOT AOSUSS YIM I SATA JO MATA APTS TT sanbty 





JOqtUeYyD cM RCE HE SHON ESO] Jab HuOIprs pur ano roiuoy y— Mota aps aquuiry y — 


Vauv Jul 
WOILIHIOdDAH UILIWOIOVHUs ¥ 
JO SIX¥ JVWNOIONYFL ¢ D1 


é 
‘ é 
/ / 1230 ’ 
y ius / y 0° eet 
/ j “ z 
a eS / 


w/ : / | 


scye ’ / seu 0 60 





4 
i / 4230 ONVLS ONY 


’ 
; ONOD3S SYILINOIOVY 323¥1 








eo ee eo ewe oP eee oe e oe ee = 


NOLLVINSWOYLSNI ~ NOUVININNYISNI 


HLNOS 


SAV@ 3WVH4 os 


WQxWOG s09¢ MJIA 3201S 


10 


burn rate data becomes available, a method of deducing the 
burn rate from the pressure data must be used. 

ieee removable steel deck plates which oan be 
solid or an open grate. The horizontal deck can be placed 
at the midsection, however the deck does not extend into the 
hemispherical endcaps. The deck is split into two sections 
over the fire to allow the fire to extend past this second 
deck and to the overhead. This allows for flexibility in 
checking the computer code. The first run will verify 


results in Fire-1 with only the fire present. 


C. FIRE-1 COMPUTER MODEL 

The Naval Postgraduate School and the University of 
Notre Dame have undertaken this joint project for the Navy 
to develop a reliable computer code to predict the spread of 
fire and smoke in enclosed spaces, whether on board a ship 
Or submarine. This will be used as a powerful tool in the 
future to assess the effectiveness of proposed damage 
control systems. It can also be used in the design studies 
for new ship types. Before this can happen the program has 
to be verified with simple cases and later modified to 
include all the complexities of a shipboard fire. 

Initial work in this project was conducted by Nies [Ref. 
ee . The initial geometry chosen was rectangular, with a 
volume identical to Fire-1. This was a three dimensional, 
finite difference model using primitive variables. The 


model also included global pressure correction, surface 


La 


radiation, turbulence, and simple conduction to account for 
energy losses through the walls of Fire-1. The conclusions 
he arrived at were: 

1. The model predicted expected recirculating flow 
patterns for the horizontal and vertical planes. This 
data cannot be recorded at NRL, so the computer model 
provided additional information. 

2. The temperature of the thermocouples located in the 
upper regions of the spherical endcaps' showed 
Significant differences from experimental results. 
This could be attributed to the geometry difference 
between the model and the tank. 

Since the burn rate data was unavailable, this prevented 
using the pressure data to validate the computer model. A 
temporary solution was devised. The scheme artificially 
developed a heat release curve based on using the 
experimental pressure curve as an input. From the slope of 
the experimental pressure curve, a first approximation of 
the heat input was determined. Initially this guess was 
fairly good, but as the conduction losses mounted, it became 
inadequate. The calculated pressure is a function of the 
heat input, therefore it was used to compute a correction 
faccor. The calculated pressure was compared to the 
experimental pressure. If it was too large, the heat input 
was reduced or vice versa. There was a second term in the 
correction factor to reduce the oscillations by slowing the 
rate of closure, thereby preventing overshoot. A more 
detailed account of this procedure is described by Nies 


(Ref. 31l:pp. 61-63]. As Nies noted [Ref. 31] by using this 


approach, stability problems do arise from taking the 


ee 


derivative of numerical data and using the fore-mentioned 
correcting scheme. But until such time that accurate burn 
rate data can be provided, this is the best method available 
to attempt a test of the computer model with the data given 
by NRL. 

The model now includes the actual spherical/cylindrical 
geometry of Fire-1. This required a reformulation of the 
computer code. The model includes a more detailed 
formulation of surface radiation, global pressure 
correction, turbulence and conduction. 

The purpose of this thesis is to verify this new model 
using the spherical/cylindrical geometry by comparing it to 
the experimental data obtained from Fire-1 with methanol as 
the fuel burned. Again problems with the inaccuracy of the 
burn rate data required the computer code to use the 
elaborate scheme developed by Nies which used _ the 
experimental pressure data to deduce a burn rate. In view 
of the resulting oscillating heat release rates, the results 
of finite-difference calculations are only used to determine 
the proper heat release rate input. Consequently, this is 
taken as trial 1. Another trial, trial 2, was also utilized 
by inputting a heat release rate curve that corresponded to 
a curve fit through a set of burn rate data provided by NRL. 
The burn rate data was taken during the methanol fire run. 
NRL indicated that the magnitude of the data was possibly 


off by some unknown scaling factor. The general trend of 
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the curve seemed reasonable and was used to see how the 
computer code would predict temperature, pressure and the. 
velocity fields if aeadraee burn rate data were provideee 
Results of trial 2 gave an indication of the proper trend of 
temperature build-up as compared to the experimental data. 
Based on the combined results of trials 1 and 2, a final 
trial, trial 3, was then made in the numerical computations 
to simulate the experimental data as well as to provide the 
detailed information on the developing temperature and 


velocity fields. 
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1 le GOVERNING CONSERVATION. EQUATIONS 


A. GOVERNING EQUATIONS 

The computer code developed in this thesis is designed 
to model Fire-1, the test facility at NRL. As previously 
described, this facility is a combination of cylindrical and 
spherical geometries. Prior work in the development of a 
code to simulate a fire in Fire-1 used a rectangular 
geometry, Nies [Ref. 31]. The use of a cartesian coordinate 
system for that simulation was treated as a first 
approximation. With a spherical/cylindrical geometry, the 
computer code must be reformulated using a generalized 
curvilinear coordinate system. 


In the development of the equations, various 


assumptions are made. The fire is modeled by volumetric 
heat input only. Combustion reactions are not included at 
this point in time. Density is allowed to vary in 


accordance with the ideal gas law, and the flow and 
temperature fields are dominated by turbulent transport. 

The governing differential equations are presented in 
this section along with the transformation from cartesian 
coordinates into generalized curvilinear coordinates using 
standard tensor transformation. As Yang, et al. [Ref. 20] 
pointed out there are several shortcomings that limit the 


stream function-vorticity formulation procedure to be used 


15 


in many applications. From their previous work with flow 
transitions in three dimensional rectangular tilted 
Breienire: [Refs.. 10-12], they have developed a three 
dimensional primitive variable formulation in arbitrary 
orthogonal coordinates [Ref. 20]. It is this formulaeeen 
that is used by the computer model presented here. 
1. General Equations 

The equations governing the conservation of mass, 
momentum, energy, and smoke concentration in three 
dimensional systems can be written in terms of tensor 


notation as follows: 


Cone inuicy 
Pet (cule 3 0 (20 
Energy 
(PComT) t 4- (PUZComT) 4 = Coli + yo + Pui i (2920) 
Momentum 
(PU;)¢e + (OP ujus) 5 * a ret - 0G; + Core (2260) 
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Smoke Concentration 
fog tee dg’) i a (DY 474) + Sy (2.4) 


where 9 is the fluid density, U; is the velocity vector, the 
subscript t denotes the derivative with respect to time, P 
is the static pressure, G; is the gravity acceleration 
vector, oj4 is the stress tensor, Cyn 1s the mean isobaric 
heat capacity, k is the thermal conductivity, uis the 
dynamic viscosity, ois the dissipation function, Y is the 
concentration of the smoke, and D is the diffusivity of the 


smoke. The sheer stress tensor, 0j3, 1s given by 


5 = wy ys + Uy 4 - 2/3 S45UK,x) (225) 


and the dissipation function is given by 
6 é § 2 2 
= 2(ui 4) 945 4. [uy 4(1 - ee = 2/3 (uj, i) (2.6) 


where the symbol Sisis the Kronecker delta, which takes on 
the value 1 when 1 = j and the value O when i = j. 

The transformation of these equations into the 
generalized curvilinear coordinates (91,062,067) is outlined 
by Yang, et al. [Ref. 20] using the rules in accordance with 


Eringn (Ref. 32]. 


ay 


The generalized orthogonal coordinates are 


transformed as 
X; > et (2m 


while a scale factor, h;, for the curvilinear coordinates in 
directions gi 1s determined by 
oon OX amelae 
ae J 3 
he — (Ceci) = — ° —+) (2 48) 
i 307 907 
Note the summation rule does not apply to the index of h . 
For cylindrical coordinates, h,, Ng, and h3, have the 


following values [{Ref. 33]: 


h=r = 64 (2.5 
hoe 1 (2.10) 
heel (2a 


For spherical coordinates, the values for h are: 


hy =r sing = 6% sin 9 (200s 


hae (29488 


18 


fe ele eri. 


The covariant metric: tensor of orthogonal 


coordinates is given by 
Jin = Si + 55 = Saghihy (2.15) 


which is a special condition since the base vectors are 
orthogonal and the results are a diagonalized metric tensor. 


It follows that g is the determinant of Si; 
g = Igi5] = hf hg hg (2.16) 


The contravariant metric tensor for orthogonal 
coordinates is determined by 
3 er 
lj = 
g —— (Qe) 
1 J 
Note the tangent vector to the u; curve at P ls represented 
by Eqn. 2.18 and the velocity vector is represented by Eqn. 
Palo. Both velocity components are in the curvilinear 


coordinate systen. 
cin yi (Ze) 


= u(t) yn (2219) 


& 
Ke 
| 


ro 


The generalized orthogonal equations are [Ref. 20]: 


Continuity 


a1 ae 
oo sot 


0, + v2 outfh.) = 0 (2.20) 


Energy 


1 3a We 1 
(oC TT) —— ae Ome u ae 
pm ‘t ae yor pm Ae 








Z £ 
- apt Sig? kr fp) + 
g 36 ’ 0 (2525) 
Smoke Concentration 
ee 17 Zz 
(oY), + == —= (¢“* pu Yf,) 
c aa yor 7 
ee 1/2 ij Sse 
= eG ODYe2 Gaede 
gi? a9t rJ 0 (25229) 
Momentum 
i 1 Oo iy 2 4 ae a 1 die 1 ca 1/23 ) 
(Ow +a gs ny) = Ba eS + 7 
cule : oh. . 
1 Asa il J J,,+ J 
(Ou uy - Oz) + a (Ut or) (2 eR 
hjhs 393 Lae J 


20 


Stress 








™ eae! a — (2) ve as Sate ay et on erat ya 
1 eff h. yor As Bs 592 i hh. 4g ho 
6 m 
eo 2 | 
+ — (g ——) | (2.24) 
v2 yg - 
Dissipation 
ee i — 
i 2 
we aut (7a) 51! (2.25) 


The equations are analogous to the cartesian 
coordinates, except in momentum where two additional terms 
appear due to Coriolis and centrifugal forces. The 
definition of stress is also different. 

Some terms in the energy equation are combined to 


form the heat source term, Sr: 


= _1 9 |j/2 2 D6 
ona 7 a (g’" u/h,) ( ) 


Since the effects of gas radiation are not treated here, the 


heat source term is non-zero only in the region of the fire. 


B. INITIAL AND BOUNDARY CONDITIONS 
In order to solve the governing equations, the initial 


and boundary conditions must either be given or assumed. 


Zu 


lL. D2nitial=condrterons 
The initial conditions occur at time equal to zero. 
This Secure Just pedo fe IGhitc1on Gr the fire in Pires 
It is assumed there exists a uniform temperature 
distribution with all the temperatures equal to the ambient 
temperature. The pressure and density distributions are the 
static equilibrium distributions in the tank, and the 
velocity field is set equal to zero to avoid any motion. 
2. Boundary Conditions 
At any solid boundary in the tank, the velocity 
components on the wall are set equal to zero due to the no 
slip conditions. Since the velocity normal to any surface 
1s zero, so is the mass flux. Also the temperature of the 
solid is equal to the temperature of the fluid at these 


interfaces. 


ul = 0 (2 aaa 

Ts = Teo (252en 
on Lon (2.29) 
on 


where n is the inward normal. 
At the solid boundary, continuity of heat flux must 


be satisfied. 
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oT ae 


Get = 7 *s Gn pene! 
where q; is the these rnaracoen energy. At the exterior 
wall, heat is convected away. 

Special treatment must also be given for the 
Singularity at xr equal to zero for the cylindrical 
coordinate system. Yang, et al. [Ref. 20:pp. 167-168] 
explained the different approaches that have been made to 
rectify this problem, but they chose to use two consecutive 
radial control volumes placed in the vicinity of r equal to 
zero. Trying a number of methods, they found this gave the 
best representation for the temperature and flow fields. It 


is this approach that is utilized here. 
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III. RADIATION MODEL 


A. ENTRODUCTION 

In order to calculate the radiation effects in the 
model, a number of assumptions have to be made. First only 
surface radiation effects are considered. This means that 
the gas inside of the tank is modeled as nonparticipating 
and transparent. This assumption will lead to an i..trease 
in the heat transfer to the vessel walls (Ref. 28:pp. 142- 
164] and the energy equation at the walls of the tank will 
have to be modified to account for the direct deposit of 
energy from the fire. The second assumption is that the 
Surfaces are grey and the radiation reflected or emitted 
from any surface is diffusely distributed. The third 
assumption defines what is a surface. Both the tank wall 
and the flame are modeled as a specified number of cells 


each small enough to be considered as a differential zone. 


B. THE METHOD FOR CALCULATING THE RADIANT HEAT TRANSFER 
The radiation model is based on the net radiosity method 
as outlined in Sparrow and cCess [Ref 34:pp 90-94] and 
summarized here. 
In an enclosure, the net rate of heat loss, Q, froma 


typical surface "i" is the difference between the emitted 
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radiation and the absorbed portion of the incident 
radiation. 


OF 


ie BP a1 
B. = €or. aH; ( ) 


where 90 is the Stefan-Boltzmann constant, ©; is the 
emissivity, o; is the absorptivity, and Hj; is the radiation 
incident on surface i per unit time and unit area. 

In order to simplify the above equation, a number of 
assumptions must be made. The tank represents an enclosure 
composed of N finite surfaces. Each surface is assumed to 
be isothermal. The participating surfaces are gray, that 
is, the emitted and the incident radiation are independent 
of wavelength. From Kirchoff's Law: 

Oy Ej (352) 

The radiation reflected and emitted from any surface is 
diffusely distributed. This will simplify the analysis 
Since the radiant energy streaming away from a surface is 
the sum of the emitted and reflected radiation. Since they 
are both diffusely distributed, then they are directionally 
indistinguishable and there is no need to treat them 
separably. Since H represents the incident radiant energy 
arriving at a surface, pH would be the fraction of energy 


that is reflected from the surface. The total radiant 
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energy that streams away from a surface is termed the 


radiosity and is denoted by the symbol B. 
B = coT4 + oH (3 9 


The radiosity is composed of the radiation emitted and 
reflected by the surface. It is also assumed that the 
radiosity of any surface is uniform along that surface. 
Upon eliminating the flux from Eqn. 3.3, and applying Eqn. 


3.2, the following equation is obtained. 


1O 


: ge 

ee aL: 4 

7 Lee, ee (Si 
a ats 


For an opaque material, the incident radiation is either 


absorbed or reflected, that is, 
a ¢to=1 (3.5) 
p= Se (3.6) 


From Eqn. 3.2 and Eqn. 3.6, the radiosities are found by 


applying Eqn. 3.3 at each of the surfaces in the enclosure. 
4 
By = &O0Ty + (1 - €4)Hy (3.970) 
The radiant flux Hj is formed by the summation 
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N 
Hi = ) By Fai-aj (3.8) 


j=l 
where Bj is the radiosity at surface "j" and Fai-aj is the 
view factor from surface "i" to surface "j". The radiosity 


at surface "i" now becomes 


N 
4 
By; = ej0Ty + (1 - &) A Bs Fai-aj (3-9) 
dime 
ie es NN 


In this way there are generated N linear, inhomogeneous, 
algebraic equations for N unknown radiosities. By solving 
the simultaneous linear algebraic equations, B can be found 
and then the heat transfer rates Q . 

This solution, however, needs to be resolved many times 
when transient operating conditions are being analyzed for 
the enclosure. A better way to handle the solution is to 
find a direct relationship between unknown heat fluxes and 


prescribed temperatures. Equation 3.9 is rephrased as 


N 
\ XeeBe 30 l<i<N (3)23:0)) 
5-1 alta an) i -_- = 


where 


Opie (A =e) EB ., 
a ae ALHA} 
Xi = ee Corea) 
23 =oTj (oi 2) 
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Evaluating the equation for 1 = 1,2,...N, an N by N array is 
formed and will designated by matrix X. A column vector. of 
radiosities and temperatures raised tothe eeameen neuen con 
surfaces 1 = 1-N is designated B and 74 respectively. 


The system of equations can now be represented by 
[X] <B> = o<T4> (3 sil 


To find radiosity, the inverse of X is multiplied by both 


sides of the equation. 
<B> = o [X]71 <T4> (32505 


This can now be substituted into Eqn. 3.4. 





OF N 

w= } G, 4 oie (3.15) 
i jar J J 

where 
a xvi (3. Tay 
1) 1) 
E. 

Gin = v= (6.. - a.) (3 

1 l-e, oe a) : 


In this variation of the equation, 55 only depends on 


emittances which are regarded as constants and do not depend 
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on the temperature. Once the temperatures are known, the 


heat flux of the surfaces can be calculated. 


Cc. VIEW FACTOR CALCULATIONS 

The view factor (alternatively defined as the angle 
factor, shape factor or geometrical factor) provides 
information on the fraction of radiant energy leaving one 
surface that arrives at a second surface. 

Sparrow and cCess [Ref. 34:pp. 120-125] provide the 
general definition of the shape factor. 


oa eon dA, dA. 


1 
gen = (3.18) 


1 A. A, Tr 
4 J 


In this equation the subscript "i" indicates the surface 
from which the radiation is leaving from and the "j" 
indicates the surface to which the radiation is going. The 
length of the connecting line between the two elements is r, 
and the angles g; and B5 are formed by the respective 
surface normals and r. 

Due to the geometries associated with the tank, the 
equations to evaluate the view factors are not found in the 
literature. This presents a problem that can be solved in 
one of two ways. The tank could be divided into a few 
finite areas resulting in the evaluation of the integral 
over a complex area. Or the tank could be divided into a 
number of smaller areas that could be assumed small enough 


to be considered differential in size. 


Zo 


It was decided to use the latter method. Equation 3.18 
can be used with the.assumption if the areas are small, then 
the integrand is aecunede constant. This avoids any 
integration. 


Cos Be cos &. 


= cle 


E dAi-daj ~ 


3 
a aA. (3.19) 


me? J 

This is a reasonable assumption since the error introduced 
calculating the view factors in this manner is of the same 
order of magnitude as that of the finite difference 
algorithn. In order to find the view factor from surface 
"J" to surface "i", reciprocity can be used since the 
leaving radiant fluxes are diffusely and uniformly 
distributed. Sparrow and Cess showed [Ref. 34] that the 
view factors depend only on the geometrical orientation of 
the participating surfaces for isothermal, gray, diffuse 


surfaces. The following equation is then used. 


Aj Fai-aj = A Faj-Ai (3.205 


The first consideration in developing the view factors 
for the tank with the fire present was to find the view 
factors between elements on the walls of the tank alone, 
then the effect of the fire would be added along with the 
effects of shading. The tank is divided into 560 cells, 100 


on each endcap and 360 on the cylinder. Each cell is nowa 
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surface radiation zone. The previous rectangular geometry 
used by Nies [Ref. 31) had 66. surface radiation zones. The 
Mrraces on the Pank are eT ightie concave, but are assumed 
to be flat to avoid any self radiation. This is a valid 
assumption due to ‘the small size of the oui and the 
minimal amount of radiation that would be reflected back on 
the same cell. 

In order to have a means by which the program for 
calculating view factors can be checked, a useful property 
of the view factors is deduced from the energy conservation 
principal. As stated in [Ref. 34:p. 83], the radiant energy 
leaving any surface in an enclosure must impinge on any 
other surface in the enclosure whereby none can be lost. 


This leads to the following equation. 


N 
y Fai-aj = 1 (sez 
j=1 
The N denotes the number of surfaces in the enclosure. 
1. Tank Element to Tank Element View Factors 
There are three general types of view factors and 
their reciprocals associated with the tank. 
a) spherical element to spherical element 
- same hemisphere 
- opposite hemispheres 
b) spherical element to cylindrical element 


c) cylindrical element to cylindrical element 


a2 


To illustrate the process by which these view factors 
were found refer to Fig. 3.1 which shows how the cylindrical 
element to spherical element es factors one obtained. 
The other view factors were found in a similar fashion. 
First the distance between the two elements was obtained by 


using relations for right triangles. 


a2 = R2 + p? - 20R cos 0 (3.22) 
b? = (Az +h)? (328) 
r2 = a2 + be (3.24) 


Next the cosine of the angle between the normal of the 
element and the distance r must be found. For element 1, 7, 


1s found in the following manner then cosine 84 


of = b? + 02 (3.25) 

2 2 2 
RB = el 3.26 
cos } = The (3.26) 


For element two a similar analysis is made. 


Zz 
t5 = Az? + RA (3425n 
Ree ace 
cos Bp = 5 (3.28) 
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Figure 3.1 Calculation of Cylinder to Sphere 
View Factor 


oe 


which results in the view factor being: 


8 
oe - cos *, cos B. 
Al-A2 ~— 2 
Te 
2 Z 2 2 Z 
—~ fe = AZ )(R™ + a= 9) an (3.255 
Za 2 
47R xr 


2. Shading 


The next consideration was putting the fire in the 


tank. Once this happens, a problem concerning shading 
enters in. The fire will lie in the direct path of some 
elements. The elements that would be affected are those on 


the north sphere to those on the south sphere, elements on 
either sphere to certain elements on the cylinder, and 
elements on the cylinder to other elements on the cylinder 
but on the opposite side of the fire. If the line of site 
between any two elements intersected the fire, the view 
factor between the two elements was set to zero. This was 
accomplished in the following manner. First the equation 
for the line of sight was determined. Each element is given 
a x,y,z location in the following way: 


- spherical to cartesian 


>» 
ll 


R sin ¢? cos 4 (3.30) 


KK 
il 


R sin ¢?cos 6 (3.395 


34 


North End 

Z = Rcos | (3332) 
South End 

Z = Zoml2 — Rk cos 6 63 333) 


- cylindrical to cartesian 


X = R cos @ (32.54) 
Y= R sin 6 (3235) 
Z= Zeyll + & (3.36) 


where zcyll and zcyl2 are specific locations on the tank and 
illustrated in Fig. 3.2 and Z, is the length along the 
cylinder portion of the tank only. The z axis origin is at 
the north end of the tank. 


The equation of the line between the elements is: 


eee eg (23m 


3 


butpeys JO uot7zeAASNTTI 2°¢ VANHT Y 


OLE = 96 = 
21492 1 1A9Z O : 


AS 
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The equation for the fire is: 


° o 4 ve ; ) 
X° + (Z - HSZ)? = R¢ (3.38) 


(-ye < Y < R) 


where rf is the radius of the fire, and HSZ is the 2z 
location of the vertical axis of the fire centerline. 


To find the intersection, substitute Eqn. 3.37 into 


Ben. 3.38. 
At? + Bt +c=0 (3.39) 
where 
A= (Xj - X3)2 + (25 - 23)? (3.40) 
B = 2X4 (X5 Ser 2 (25 - 23) (24 - HSZ) (3.41) 
o— x? + (Z; - HSZ)2 - Re (Bera 


If the following is true, there is no shading and 


the view factor remains unchanged. 


B2 - 4AC < 0 (3.43) 
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Otherwise two solutions for t can be found which 
result in two solutions for y, yl and y2, from Eqn.) aeaue 
The solutions for y must now be checked to see if they 


coincide with the fire. 
| ¥1) 
If - yer < < R (3.44) 


If this equation is true, then there is shading and the view 
factor between the two elements must be set equal to Zero. 
3. Fire Element to Tank Element View Factors 

The fire is modeled as a vertical cylinder with the 
diameter equal to that of the experimental fire pan. The 
fire pan rests on a small deck in Fire-1, the fire in the 
computer model then extends from the same location to the 
top of the tank. The fire height can be modified if 
required. In order to calculate the view factors, it is 
assumed that the fire can be divided into 19 equal sized 
cells. The midpoints of these cells lie on the verical axis 
of the cylinder. When actually calculating the view 
factors, the tank cells have a line of sight to the midpoint 
of a fire cell that lies in a two dimensional plane facing 
the tank cell. This further models the fire as if a plane 
extends through the axis and now rotates around the axis to 
face the desired tank cell. The area the tank element sees 


can actually be rectangular, circular, or a combination of 


38 


the two. This unknown area will ultimately cause problems 
with the calculations and a modification factor will be 
7 ee: ae a | 

In calculating the heat source view factors, a 
number of problems were encountered and solved by making 
modifications or assumptions. These problems were as 
follows. 

- two sidedness of the fire cells 


- geometry of the fire cells close to the tank 
wall 


- actual area of the fire cell. 

The first problem is a result of the modeling of the 
fire. As the plane rotates about the axis, it sees all 560 
cells. It is better to model the plane as one side seeing 
only cells on the north end of the tank and the other side 
of the plane seeing only the south tank cells. When this is 
done, the enclosure property can be used to check the 
accuracy of the view factor calculation. If this 
modification is not done, then the sum from the enclosure 
property would be two vs. one. 

When calculating the view factors from the fire 
cells to all other cells in the tank, the enclosure property 
was within tolerence for those fire cells in the center of 
the tank, but the closer the cell was to the tank wall, the 
further the total summation deviated from 1.0. The view 
factor equation used, Eqn. 3.19, represents the radiant 


energy leaving dA; that is incident on dA;. It was derived 
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using the relations between the radiosity, intensity, and 
the solid angle subtended by dA; when viewed from dAj. The 


solid angle, is represented by 
daw = dA; cos Een | - (3 3455 


As the fire cells become extremely close to the tank cell, 
this solid angle can not be approximated by assuming 
infinitesimal areas. The initial assumptions used to 
calculate the view factors do not give a totally accurate 
result in this case. The view factors are underestimated, 
resulting in the total summation being less than one. The 
cells that are most effected by this, are those tank cells 
directly over the fire. The angle, &, between the fire 
cell normal and the line between the fire cell and these 
cells is almost 90 degrees. When this happens the greatest 
modification is required. As this angle goes to zero, the 
tank and fire cells can accurately use the assumptions 
stated in the beginning of this section, for the solid angle 
subtended is very small. 

A global modification routine was used to calculate 
the view factor from the heat source to the tank. First the 
sum of the view factors from the fire to the tank walls must 
equal one from the enclosure property. As stated before, 


this is for each side of the fire. Since 8, is the 
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important parameter, a total modification factor, H, is 


found using 84. 
H = f(1 - cos 84) (3.46) 


where f is a modification factor unique to each fire cell. 
The new view factor can be calculated from the old view 


factor by the following equation. 


VF (new) = VF (ola) {1 + H} (3.47) 


Before this equation can be used, f must be found. Since 
the sum of the view factors must be one, then the 


sum of the right hand side of Eqn. 3.47 must also equal one. 


N N 
e — 3.48 
C VF iq + ad vB 2 el ( ) 
j=1 j=l 
y ° 3.49 


polving for f 


N 
ies L VE old 
base = _ (3.50) 


This f is calculated for every fire cell, after the initial 


view factors are found. The closer the fire cell is to the 
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tank cell, the larger f would become. Once f is found, each 
view factor from the fire cell to the tank cell would be 
medteicd Being Egn. SEO The wee factors calculate 
using reciprocity would also be modified. 

To further refine the process, a second iteration 
was used to find a new f, and then this new f was used to 
improve the view factors for a second time. Two iterations 
were all that was required to obtain excellent results with 
the total summation from the fire cells to all cells either 
on the north end or the south end being extremely close to 
one. 

The last problem was the summation from one tank 
cell to all other cells in the enclosure, whether they be 
other tank cells or fire cells, was not equal to one. If 
the fire was not included, the summation was equal to one. 
Which indicated the problem was with the reciprocity 
relation between the fire cells and the tank cells. At} 
calculating the view factors from the fire to the tank, the 
exact area of the tank cells was’ known. But using 
reciprocity, an assumption had to be made for the area of 
the fire cell. The first assumption had the area of the 
fire being a rectangle, a circle or a combination of the two 


depending on the angle 8). 


Arc = Ap(1 - cos 84) + Ac(cos 84) (3.59) 
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where Apc is the area of the fire cell, Ap is the area of 
aoe pe Te: and ZC is the area of the eee 

Another modification was in Mex £08 the tank cells 
to the fire cells. The first step was to calculate a 


modification factor for each tank element. 


N 
L Ener) 
Aci) — 7 (3.52) 
j=561 SORT(L + (R(i,3)/R,) “1 
where the numerator involves the difference between the 
desired value of one using the enclosure property and the 
actual value obtained from summing all the view factors in 
the enclosure. The denominator involves a summation only 
over the nineteen fire cells, where R(i,j) is the distance 
between the tank and fire cell and Rf is the radius of the 
fire pan. 
The new view factor is then calculated by the 


following equation. 


A(i) ] *VE 14 (i+5) (3.53) 


Ce eee ee 
ey SORT[1 + (R(i,5)/Re)“] 


Again this modification is only applied on the view factors 
from the tank to the fire, 1 can vary from 1-560 and j can 
mary £rom 561 to 579. The sum from any tank cell to all 


other cells in the enclosure is now found to be one. 
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The view factors from any fire cell to any other 
fire cell were set equal to zero since all cells were 
assumed to lie on a vertical line and not allowed to see 


each other. 
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IV. OTHER PHYSICAL. MODELS 


Besides including radiation into the field model, other 
aspects of the fire must also be considered. It is the 
purpose of this chapter to briefly outline the other models 


incorporated into the program at this time. 


A. CONDUCTION MODEL 

The computer model must account for the loss of heat by 
conduction through the tank walls. In the later stages of 
the fire this becomes increasingly important. 

A simple conduction model is proposed here. The model 
employs one dimensional, unsteady conduction through the 
tank wall thickness. Convection at the exterior wall is 
modeled with a constant heat transfer coefficient. The 


energy equation as applied to the solid wall becomes: 


(oC T ui WZ 


-~_i 3 13) 4 (4.1) 
S “ps . = gi/2 ve Ke 7 sa = 


where pgCphg 1S the heat capacitance of the wall and kg is 


the wall conductivity. 


B. TURBULENCE MODEL 
The turbulence model used in the program is a simple 
algebraic model. The algebraic model can adequately predict 


the average values of the dependent variables. 
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The effective viscosity, Heff , in recirculating buoyant 
flows with large variations in turbulent level was modeled 
by Nee and Liu (Ref. So \Fa Appin the trans formachenae a 
generalized orthogonal coordinate system, the equation can 


now be written as 


i 
; (+ 2a - 81"? @ 
oe ie 3 96 oa (4.2) 
: 2+ 
Tt 


where Ri is the Richardson Number: 


ol. > > 
| ty (5 7) n° g 
RE 8 ee (4533 
= ee ae Ju> ee 
Uo (jn: g] “+[(on- g] ea) g] 


2/H is the non-dimensional mixing length parameter defined 


as 





ain aS aa 
| 1 dut 2,1/2 i acu ee 
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i305 i,j iy 90796 


Pry is the turbulent Prandtl number, n is a unit vector in 
the negative gravity direction, and K is an adjustable 
constant. 

The effective conductivity is found by the following 


equation 
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fee ete 
eff Pr Pr, Hy (475)) 





Pr is the molecular Prandtl number. 
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V. FINITE DIFFERENCE CALCULATIONS 


A. INTRODUCTION 

In the formulation of the computer model, the governing 
differential equations must be modified in order to use 
numerical methods to solve for the primitive variables. The 
independent variables are space and time. The dependent, or 
primitive, variables are the velocity components ul, u2, u?, 
pressure P, temperature T, and density ©. The six equations 
required to solve for these unknowns are the conservation 
equations of mass, momentum, and energy plus the equation of 
state. The conservation equations were developed in Chapter 
rE wWEanS= 2.2075 22005, 2225) The equation of state for a 


perfect gas is: 


P = cRT (5.1) 


where R is the universal gas constant. 

In Patankar's book [Ref. 36:pp 25-40], he describes the 
discretization concept as it applies to a finite difference 
method. The general form of the finite difference equations 
for the computer model developed in this thesis follows 
Doria's initial work [Ref. 37] done at the University of 
Notre Dame. Doria [Ref. 37:pp. 1-44] discretized the 


governing equations using a control volume method which was 
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one of the methods described by Patankar [Ref. 36]. In this 
method, the flow domain is divided into many separate 
control volumes. The conservation equations are written for 
each cell in integral form. This will lead to a set of 
finite difference equations. 

The control volume approach uses the integral form of 
mes. 2.20, 2.21, and 2.23. All properties are at the 
center of the cell and represent the overall average values. 
If a numerical method violates the conservation property, 
non-physical results may be obtained due to artificial 
sources or sinks of mass, momentum, or energy. When 
primitive variables are used vice the stream vorticity 
method, special procedures are needed to handle the pressure 
coupling among the equations. An iteration procedure is 
used to estimate pressure. The pressure is then corrected 
to ensure mass is conserved at each cell. A local pressure 
correction procedure is discussed by both Patankar [Ref. 36: 
pp. 120-126] and Doria [Ref. 37:pp. 26-32]. A global 
pressure correction must also be included in the model to 
handle net energy changes in the system. Nicolette, et al. 
[Ref. 4] describes this procedure. 

The finite difference equations are solved by an 
iterative solution procedure. For a nonlinear problem, it 
is not necessary or practical to take the solution of the 
algebraic equations to final convergence for a fixed set of 


coefficient values. Various schemes have been developed 
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over the years in attempt to obtain a finite difference 
solution of the flow problem. The central difference 
solution was found to be unsuitable because it gave a 
physically unreal oscillatory behavior in simulations where 
convection is important. The upwind differencing scheme 
takes into account the unsymmetrical phenomenon of 
convection by using backward differencing in the direction 
of flow for the first order derivative. The upwind scheme 
gives physically reasonable results for most grid Peclet 
numbers and is free of numerical oscillations. Severe 
errors do enter in at small grid Peclet numbers because of 
truncation errors. The upwind differencing scheme also 
overestimates diffusion at high Peclet numbers. Both 
schemes can be improved by reducing the grid Peclet number 
which implies reducing the grid. This is impractical 
because of limited computer resources. 

Another scheme for convective modeling has’ been 
developed by Leonard [Ref. 38]. It is called QUiGE 
(Quadratic Upstream Interpolation for Convective 
Kinematics). It has the accuracy feature of central 
differencing and retains the stable convective sensitivity 
of upwind differencing. The discretization equations do not 
necessarily have a diagonally dominant coefficient matrix 
and therefore require iteration. H.Q. Yang (Ref. 13] 


demonstrates the application of the QUICK scheme in coupled 
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momentum, energy and pressure equation solutions for three 
dimensional flow in tilted rectangular enclosures. 

In the following sections, the control volume method 
will be applied to the spherical/cylindrical geometry of 
this computer model. The conservation equations will be 
integrated. And the finite difference equations will be 
formed using the QUICK scheme. Further iterative procedures 


will be added to correct for pressure. 


B. CONTROL VOLUME APPROACH 

In the control volume method, the total volume to be 
modeled is divided into a number of nonoverlapping control 
volumes. In each control volume, or cell, there exists one 
aad point. A spherical three dimensional cell and its 
neighbors is illustrated in Fig. 5.1, and a cylindrical cell 
is illustrated in Fig. 5.2. The cell is centered at a nodal 
meint, P or (I,J,K). The points at the neighboring cells 
are designated, east (I+1,J,K), west (I-1,J,K), north 
mieoti,K), south (1I,J-1,K), front (1I,J,K+i), and back 
(I,J,K-1) or E, W, N, S, F, B respectively. The boundaries 
are labeled by lower case letters e, w, n, s, f, and b. The 
cell boundaries coincide with the physical boundaries to 
make the application of boundary conditions easier. The 
previous geometry was rectangular and used a uniform grid 
(Ref. 31]. In the spherical/cylindrical geometry, the 
radial grid is no longer uniform. A control volume in the 


generalized orthogonal coordinate system is represented by 


al 





Figure 5.1 Spherical Basic Cell 
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Cylindrical Basic Cell 
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Yg6le2 8. The actual grid size will be discussed in Chapter 
wt. 

Temperature,pressure, density, specific heat and 
viscosity are calculated at the basic grid point. Whereas 
velocity is calculated from a grid that is staggered one 
half cell from the basic grid. Difficulties can arise from 
Calculating all variables from the same grid points. 
Patankar [Ref. 36:pp. 115-120] lists these difficulties and 
explains the advantage of a staggered grid. First; a 
staggered grid prevents a wavy, oscillatory, velocity field 
from satisfying the continuity equation by using the 
difference of adjacent velocities. Secondly, the velocity 
1s easily calculated as a function of the pressure 
difference between the two adjacent basic grid points. 

A two dimensional view to illustrate a basic cell and a 
staggered cell can be found in Figs. 5.3 and 5.4. The ul 
node labeled P corresponds to the west face of the basic 
cell centered at P. Its surrounding staggered cells have 
their centers marked as E, W, N, S, F, B and the six 
boundaries are marked as e, w, n, Ss, f, b. The same applies 
to u“, and u? components by moving the basic cell one-half 
cell to the south or back respectively. The velocity, ul, 
for the basic cell (I,J,K) is located on its west face, ue 


is on the south face and u- is on the back face. 
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Figure 5.3 Two Dimensional Basic Cell 
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Figure 5.4 Two Dimensional Staggered Cell 
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C. INTEGRATION OF THE CONSERVATION EQUATIONS 

Discretization of the conservation ‘equations is now 
accomplished by integrating Eqns. 2.20, 2.21, and 2.23 over 
each control volume. The integral form of the conservation 


equations can be written: 


Continuity Equation: 


30 ADS 3 il 3 2 
ie Hyhyhdede de + J i ae ee hsh,) 


2S 


i. “—s(ouhyh,) Ja0" as de> = 0 (5.2) 


Energy Equation: 


d(oC_ T) 
om Teena ae 3 i 
J —x_—— h,h,h,dede“de” + oe. wv Th,h.) 


0 Z 3 5 eS 


- ( 24(q'hsh,) + 2.(@*hyh,) + 24(hyh,) ]ae"ae“ae" 
Wee ee a) es 2 


Dees 
+ J S hhh, de“de“de (53) 


where: 


ae 
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D. CONTINUITY EQUATION 

In developing the finite differencing equations, finite 
quantities are substituted for the differential element in 
the integral form of the equations. Finite values are 
substituted for A quantities and for various fluxes across 


the cell boundaries. The differencing techniques used in 


this numerical scheme are forward differencing for the time 
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steps, central differencing for the diffusion terms, and 
QUICK for the convective terms. 

In the forward differencing scheme, a future value of 
the dependent variable is predicted from the previous value 
plus a known slope multiplied by the time step. For 


continuity: 


of ane (5.5) 


where p"-1 is the old value for density at the previous time 
step, ois the new value for density, m is the known slope. 


The left hand side of Eqn. 5.2 becomes 


n n-Ll 


90 a7 = 2 =P veo 3 
sane een pao nearte 
ot _ pol 
_ 5.6 
Me AV ( ) 


Using the continuity equation as a model, the evaluation 


of the integral becomes 


n_ on-l, AV it es eel 2.3 
(p po 7) ee [ou hohdé dé i [ou hjhd6 dé Ie 
2 ee ees 
+ [ou*h,hde7ae")_ [pu*h,h_d9 ae") . 
1.2 3 ae. 
+ = a s 
[pu~h ha de do“]. - [pwh,h,derae], = 0 (5.7) 


So 


Because of the different locations for evaluating the 
density and velocity components, the symbol G will represent 
the mass flux rate. The mass flux rate will be evaluated at 
the six faces of the basic cell. 
+(h,As).)) (5-8) 

aE ah 


1 i 1 1 I 


Gy = (ow), = Wy ((o,, 0,86") 51 +H,,(h, 80°) 51/1 (h, Ae*), s+(h,Ae4).)) (5-9) 

G, = (eu), = wh ((p (he) 54 Hoy (he) 5) /((h de) 5,,+(n,08),)) (5-10) 
G, = (eu), = we ((, (nde), 1 +0, (nyh0”) .)/((h 06), y+(h,A8*),)) (8-21) 
Ge = (ov) ¢ = UBUD, MngAO) yy +Og(NgAO™) I/((hghO) py HUhgh"),.)) (5-22) 
G. = (Ou), = UAC, (hgAO I. +O, (Ny AO),)/((hgAO I, H(hghe”),)) (5-23) 


and the area is represented by 


Ae w = (hg A0*h3A8*) 6 y (5.14) 
Ans = (hy, Aeth3 Ae?) yn 5 (5.15) 
Ag py = (hy Aoth2 A602) ¢ p (5.16) 


The continuity equation is finite difference form is 
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At FS ee a as (or 7) 
where Smpis the mass source term. If this were an ideal 


situation, the mass source term would be equal to zero. 
However, for an iterative numerical solution, the sum of the 
mass fluxes will equal a finite nonzero value, Spy. As the 
solution is iterated and converges, the mass source term 
will approach zero. The solution will be iterated until Smp 


is less than a predetermined cutoff value. 


E. ENERGY EQUATION 

The energy equation will be used to illustrate the QUICK 
scheme. Integration of the energy equation over the 
control volume leads to the following equation. 


~+G(C T) A -G(C_T)A 


oes) — (0C iT) zi e'-pm ‘ee Gy pnw Ww 
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where S is the source term which includes the terms of 
dissipation, pressure work, radiation and any internal heat 
sources (see Eqn. 2.26). 

Let J represent the total heat flux which is que to 


convection and conduction. 











1 it aT 
Js. wy uml © Pere OT eal ees (5.19) 
; h, 36 
i 
2 2 oT 
a =“ [(pCaue Tt) aaa ] (Sn 20H) 
Mees pm h.36° 2S 
2 
oe eee aT 
Je, = [(pC ut) - k a ae (5.205 
: h,36 


The above equations represent the gl, 62, 63 components 
of the total flux of heat. The subscript indicates the 
poink to “which they “comrespond. For example, Ss is the 
component of flux at point "“e" on the east face; we is the 
component of flux at the point "n" on the north face, ae 
is the component of flux at the point "f" on the frome 


face. Substituting Eqns. 5.19 - 5.21 inte Eqn. 5. logis 


energy equation in finite difference form becomes: 
n nee ” 
[eC 7)" = (oc ny) Fe + TA, - TA, 


2 2 Jee ee 5.20 
ee eee cs oY ( 
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In the heat expression, (eutc,,T) gives rise to difficulties 
because Com: o, and T values are suppose to be evaluated at 
the center of the cell instead of the surface of the cell. 
The different flux components in Eqn. 5.22 must be expressed 
in terms of the value of Com: o, and T at the point P and 
its neighbors W, E, N, S, F, B. 
1. QUICK Scheme 

In deriving the finite difference equations, the 
main aim is to estimate accurate values of the dependent 
variables at the surfaces of the control volume with stable 
properties. One way to do this is by using the QUICK 
scheme. QUICK combines the stability of the upwind scheme 
with the relative accuracy of the central differencing 
scheme. This combination is achieved by using a parabolic 
polynomial interpolation to fit the control volume at three 
consecutive nodal positions. Two nodes located on either 
Side of the surface and the third on the next node in the 
upstream direction. H.Q. Yang [Ref. 13:pp. 77-89] explains 
the use of QUICK for a one dimensional system and then 
expands to two and three dimensions. Before QUICK is 
applied to the generalized orthogonal system, a brief 
summary of H.Q. Yang's (Ref. 13:pp. 77~79] explanation of 
QUICK as it applies to a one dimensional cartesian 
coordinate system is repeated here. 

The quadratic interpolation expression for a non- 


uniform grid spacing is given as (see Fig. 5.5): 
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Figure 5.5 


One Dimensional Quadratic 
Interpolation Scheme 
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econie = acom-e( (Tp + Ty)72 - 1/8 CURV,) (5.23) 


(oCpmVT) w = GwCpm.w((Tp + Tw)/2 - 1/8 CURV,) (5.24) 


where the upstream weighted curvature terms CURV are given 


by: 
CURV, = AXC/AX, ( (Tp - T)/OX, - (T,- T)/AX,) if G > 0 
= AXS/0X, 15 ( (Tap ~Tp)/DXog - (Tp -T)/AX,) if G, < 0 (5.25) 
CURVY, = Ax / OK, 41 ((T,, ~Ty)/AX, - (T,- Ta)/AX, if G > 0 
2 | 
= ee Deo) aX = (T, ~ Ty/dx,) ce 0 (5.26) 
where 
Mo = .5(AX; + AXs42) 
AXw = .5(AX; + AX4-4) 
(5.27) 
AX oo = 25 ( AXj 47 ~ A X44) 
Akww = -9(AXZ-7 + AXj-2) 


The expression modified for the generalized 


orthogonal coordinate system would be: 
(0 Cymu?T) 2 = G.Cpm.e((Tp + Tg)/2 - 1/8 CURVNe) (5.28) 
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(PCom?T) wy = GyCom.w((Tp + Tyw)/2 - 1/8 CURVN,,) (5.29) 
where 


= ul di 
CURVN. = (hy age “7 (hy Ag+) , (tT, ~ To) 7 ee Me = oe ) laf Gy > 0 


_ lee? 1 S po ee Pal 
= (hy A67) 2/ (Hy A87) 544 (Tag TE) / (hy 06") go- (Ty-T) / (hy 46) .) (5-30) 
if G  =<@ 
e 
Then, 
_ IL 
CURVN, | = (Ay Agt “7 (h, A€ Eales mre -T )/ (Ay A8 aie “(> Tay) / (Py Act ) soe) if G, > @ 


(n, age A Age 5 (ToT) / (hy gt) Re Age) .) (5.31) 


i Gee 
W 


(hy A6t)e = -5( (hz AGt)y + (hz AG") 443) 
(hy Ast) w = -5( (hy Aet)y + (hy aot) 3-3) 
(5.320 


(hz At) ee = -5( (hz AG") 441 + (hy A6+) G49) 


(hy Act) ww = -5((hzA6") ¢-1 + (hz A+) 4-9) 


The conventional finite difference form of Eqn. 


5.22 for a one dimensional system is written: 
(0Cpm. pTp) chy 40+ = ApTp + AyTy - ApTp + $(h, A?) (5.33) 
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Using a semi-implicit tridiagonal solution procedure, Trp 
and To are incorporated into the source term. The other 
coefficients will be equal to: (for a uniform grid) 


Ag = Com.e(-7Get3|Gel)/16 + Com. w(—Gwt|Gwl)+ke/hyAo? (5.34) 


Aw = Com.w(9Gwt31Gwl)/16 + Com.e(Get| Gel) +ky/hy A6* (5.35) 


9 (GwCpom.w-GeCpm.e)/16 + 3(1GwlCpm.w + 1GelCpm.e)/16 


+ (Ky + ke) /(h A064) (5.36) 


" 
il 


p = Shy det - Com.e(IGel-Ge) TEE - Cpom.w(lGwitGw)Tww (5-37) 


The extension of the QUICK scheme to two and three 
dimensions is preformed by H.Q. Yang [Ref. 13:pp. 82-89]. 
Only the three dimensional algorithm as it applies to the 
generalized orthogonal coordinate system will be described 
here. 

The 3-D QUICK algorithm is based on locally 
quadratic interpolation of temperature on each control 
volume. The average control volume temperature is found in 
a Similar manner as the one dimensional case, only now there 
are more points to consider. A three dimensional 
representation of calculation cell with a uniform 
rectangular grid is found in Fig. 5.6. A similar situation 


applies to this geometry only a more complex figure would 
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Figure 5.6 Calculation Cell for a Uniform 
Rectangular Grid 
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represent the calculation cell. The interested reader 
should refer to Yang [Ref. 13] for the evaluation of the 
temperature and curvilinear terms. The curvature terms are 
derived for each of the temperatures and substituted into 
the convection heat flux expressions. The heat flux is then 
found going into each surface of the control volume. Once 
the heat flux is found, it is substituted into Eqn. 5.22. 
After separating variables, the energy equation can be 


written as, 


-l 
(A, + (oC ees) a 


AT + Tp + ALT. 
pm.p it tp = ABTS 7 ANN 

+ ACT, + A,T, +S) (5.38) 
where the additional source term is, 


oT yr 


7 (OC pe? Poe AWWR * ANNR * Acsr 


+ Arrr + “Appr (5.39) 


In the derivations that follow, all properties are assumed 
to be at (i,j,k) unless alternative values are given. ete 
only one indice changes, that will be the only one so noted. 
For example the point (i+1,j,k) will only be denoted by i+1l. 
If j and k are not given, they are assumed to remain 


unchanged. 
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CN = Gy * sy, * (3 A03)py (hy A604), 
CS = Ge * us * (h3 A) .5(h 0+), 
Cro ame aaa * (h> A687) 6) (h3 A067) © 
; (5.40) 
CW = G, * uz * (Rho AG*) wy (h3A8 >) yy 
— * 2 * i 2 
Cr GF UR+ (hz A6~) ¢ (Az Ad“) - 
CB = Gp * up * (hz Ae2)p) (hohe 2)y 
The thermal conductivity can be expressed as: 
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* * 
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[(hzAe7 * hyde +) /hz A097}, 


[ (hp Ae? * hae 3)/h, A017), 
(5.42) 
(ho Ao* * hado WVhyze 1}, 


(hy Ast * hoAe *) /h3 Ad? ] ¢ 


[ (hz Ao? * ho Ae?) /h3 A037 ]y 


- 
-) i 
itl’ 16 


, 
ih enG 
— 
16 


a 
16 


ol 
oy Fe 


aeia) 
1 
J* (5.43) 


o 
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K+1! 


4 _ 
a Ae 


3 3 1 
CB) ((h,A6"),/(h,A8°),) TE 
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T 
Ape = -CEM * (hy 461) 6/(h, 48") ee 
os = -CWP * (hy A0+),/ (hy 46+) wy 
ANN = -CNM * (h> A862) ,/ (ho A62) nn 
(5.44) 
Ags = -CSP * (hp A*)5/(h2 Ad*) ss 
App = -CFM * (h3 A603) ¢/(h3 AG?) ff 
Aus = -CBP * (h3A67)p/(h3 oenia 
AreR = Akg * Ti+2 * Com: 45 
AwwR = Aww * Ti-2 * Cpm, _5 
= rT ¥ ‘ ¥ 
ANNR = Ann * 1T45+2 “pm, We 
(5.45) 
T 
Assr = Ags * Ty-2 * “pm, _» 
T 
ArfR = Apr * T+2 * Spm, nS 
T 
ABBR 7 “BB = ~k->2 ~ (Goa 
The intermediate coefficients are: 
Apr = [--5*CE + CEP + CEM*(1 + (h 4601+) ,/(hyz A@) oe) 
+ CWM * ((hy,A61),,/(h, A6d#) 4) ] (5.46) 
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— 


AwT 


[.5*CW + CWM + CWP*(1 + (hz A6+),/(hy Ad?) yy) 


Chr 


SP (nice) o/ (ag) AC+) xy) J (5.47) 


[-.5*CN + CNP + CNM*(1 + (h5A6%) ,/(N5 AG“) nn) 


+ Col 


* ((No Ae“) s/ (NoA6 7) p) J (5.48) 


[.5*CS + CSM + CSP*(1 + (hp A6*) s/ (No AS*) sc) 


+ CNP 


* ((hoAe “) p/ (N2A6 2) s) J (5.49) 


[-.5*CF + CFP + CFM*(1 + (h3 A6%) ¢/(h3 A693) eg) 


[.5*CB 


The coefficients 


AR 


+ CBM 


- ‘CBM. + 


+ CFP 


are: 


* ((h3A6 7) p/ (h3A6 3) ¢) J (5.50) 


CBP*(1 + (h3 A637) p/(h3 A®) pp) 


* ((h3A6 3) ¢/ (h3 A687) yp) J (5.51) 


4 


CONDE1 


+ 


CONDW1 


+ 


CONDN1 
(5.52) 
Com.s + CONDS1 


+ 


CONDF1 


+ 


CONDB1 


TS 


Any is the summation of all themats- 


L a ml a fh 


a= Rt A, TAQ + AG +AR+ AR + ALS t Agg 


T a 


T T s 
+ Ay + Agg + App + App)” Sump 
+ CONDE] + CONDWL + CONDN2 + CONDSL 


+ CONDF1 + CONDB1 (5.53) 


Ea MOMENTUM EQUATION 


Integration of the momentum equation over the control 
volume leads to the following equation (Ref. 20] 
1 i 


1 a a 
(ou ye Voile A. ee 


TZ ee St 
+ MA, Ma A, + Mp Ag 


- MPA, = st (5.54) 


where if i = 1, the momentum equation is for ul, i = 2 the 
equation is for u*, and if i = 3 the equation is for u?. 
Ae,wr An,s, and Ag yp are given in Eqns. 5.14-5.16 and 
represent areas on the staggered cell. mij is the total 
momentum flux along the 9 13 direction for the velocity 
component ul due to convection and diffusion. The subscript 


for M in Eqn. 5.54 denotes the position where it is 


evaluated. 


M13 = (pvtud - 0?) (5.55) 
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The source term S includes the pressure gradient, body 


force, Coriolis force and centrifugal forces. The source 


term for ut is: 
sl = -P,A, + PyA, + oGlav - Ma? (An - Ag) 
- Mo? (Ag - Ap) + Ges + M>>) (Ae - Ay) (5.56) 


The "stress-flux formulation" is used. The stresses are 
evaluated from prior information and the source is Known at 
the present iteration. Yang et al. [Ref. 20:pp. 11-13] use 


the idea of "stress-flux formulation" as it applies to the 


curvilinear coordinate system. The momentum flux is given 
as: 

mij = mij + (6) -o)) (5.57) 

a i 

where 

a 3u> 

oo = 7 ih. (——) } (5.58) 

7 J 907 


(5.59) 


The momentum equation for ul is now expressed as, 


12 


(ou), - mita - vtta + Mr-A - mien 
e e w ow jen s Ss 
+ MOA. — eee (5.60) 


B A2 3 
NO Cages NO acre ae (ae, 


The momentum equations are more complex since they are 
developed around a staggered cell. The additional sheer 
stress tensor also adds to the complexity. 

The 61 momentum equation takes almost the same form as 


the energy equation, 


1 di il 
u ne Lo See ole lh 
(A, + ¢ AV/At)u, = A, Un “- AY Uy 
ale i} a di 1 ili 
eel: ieee ie el uo ee 
+ Ay uy + A. Wet An u, + Ap up + SS u (5.62a 
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Introducing intermediate mass flow rate per unit area: 


7 2 2 2 2 2 

Gig = (0,4) (hoA6) +p, (HAG), )/(h 08) .+(h 88"), 5) ]u5 1 
7 2 2 2 2 2 

er ay gk 15 Fyn QAP Dag) AMR AS ) AG) Us) 41 
: 2 2 2 2 2 

= = [(o._, (hoe ) +0, (nods [aie ae ) ;+ (ha Ae ) 54, ) Ju 


E Zz 2 Z 
Cre 08) +05 4 (h, a8) 5_)/ (th, 20 ) + h,Ae")._ 4) Jus) 


I 1 1 I 1 
= [(o..4 (h, Ae ) te, (h, Ae ) ae) / ((h, A8 ) at (h, Ae ) oe) 14s) 


(5.63) 
bh a 1 1 1 1 
G = [(p,_, (h, Ae) +0, (h, Ae"), )/((h AO) +(h, AG), )Ju 


: 1 l 1 i l 
G, = [(o;_, (nh, A6) +o,_, (h, AG), /( (hn, AS”), + (h, AG") Jus_y 

B= (>. _ th.Ae~).. +9. (hA8”)..-)/((h,A07), + (h_A07)} 
ee ey $1349"), +0, th, 340), th, 


Jur 
k+1 k+1 k+l] 


-_ 3 5 3 3 3 
B. 5 5 ) 5 3 
Gig = [(o,_, (hgA6”), +0 (n,Ae"),_5)/( (hd), + (h,A8"), 5) Ju 


c= [(05 1 jeuy gh07) #0; _7 (gO), 4 )/ ( (ng), + (hgAO™), 5 JU; _y 


77 


ee ee 


Final mass flow rates through each control volume surface 


are: 


cr 


2 3 
x 
-9(G, a SF (h_A6 Pe = (n,A6 ses 


YZ 3 
= x « 
CW = Ge + G.) (h. AG lore (h,Ae Nhe 


5 1 i 1 
CN = [(G,,*(h, 46°) 46 (h)A6") .)/( (h A"), + (h, A8 


IL il 5 
),)] (h, Ae"), (h, Ae"), 


(5.64) 


_ i z i i it 3 
CS = [(G,,(h) AG"), +G_ (h, Ae ).)/((h, 46"), + (h AS”) .)] (hy) AG”), (h, AG") 


= i 
CF = L(G. (hy Ae dat Gey 


i 1 il 2 i 
(hy Ag ays (h, AS Bes (h, Ae ae (h, Ae ) - (h, 40 \e 


ue 1 1 Ih elt 2 i 
CB = L(G th, Ae ) gtGry,7 Ay AS ) 7 ((h, AS ) gt (hy AG ))4 (n Ae ), (A 48 yb 


The local viscosity is: 


VIS, = VIS 


VISy 


VIS;-1 


VISp 


(VIS5,, + VIS + 
VISs = (VIS3_,; + VIS + 
VIS¢ = (VIS_4 1 + VIS + 


VISph = (VISp-1 + VIS + 


VISj-1,5+1 
VISi-1,45-1 
VISi-1,k+1 


VISj~1,k-1 
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+) Vasu ae 
(5.65) 


+ VISj-1)/4.0 


VISN1 


VISS1 


ViSh1 


VISW1 


Por 


VISB1 


oe 


mise 


VIS. 


VESe, 


ViS¢ 


VISp 


* ((h3A07) (h,A61) /ho A027), 
* ((h3A05(hyA6+) /ho 02145 


* [(hoA07) (hz 407) /hyAet I]. 


(5.66) 


* [(hpA07) (h3A07) /hzAetI]y 
* [(hyA01) (hoAe7)/h3A071¢ 


* £(hzA02) (hoA0%) /h3A07 Ip 


Equations that have the same form as those derived in 


the energy equation are also used here. 


5.43, 5.46-5.51, 


neighbor: 


These are Eqns. 


and 5.44. With the point other than the 
= ee 
ARER = AEE * Uj+2 
AwwR = Aww * Ui-2 
A = aly * ud 
NNR = ANN * U442 
(5.67) 
u ab 
Assr = Ags * U4-2 
u ie 
AFFR = AFF * U_+2 
u te 
ABBR = ABB * UK-2 


v9 


all the coefficient A's are 
u 
Ar = Apr VISE1 (5.669 
u 
Ay = Awl VISWIL (5.69) 
u 
Ay = Ant VISNI (5570p 
in 
u 
Ar = AFI Visea (S.72ay 
u — 
Ap = Apr VISB1 (St7 ap 
and Ap is the summation of all the A's: 
u u u ll u u Tal u u 
= 7 
A, > Ap Ayo Sy * 2s * See So omeeeE Aw 
u u u u 
+ ANN + Bag + AnR + Aap (5.745 
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The source term is expressed as, 
sy = (P(hy 464) + 04-101 A6*)e)/((hyb62)@ + (hyde2) y) *oVeut 
+ (hg A62)4(h3A467)_(Pi-1 - Pi] + ArER + Awwr + ANNR 
+ Acop + Appr + Appr + RE - RW + RN - RS + RF - RB 
+ RRY + RRZ - RRX - Buoy * [sin(ZC(k)*(0-0RQ) 
*(h A+) ,*cos(XC(I))] + [(Pi-a-PEQ. |) (N48 *)e 
* cos(XC(I-1))]/((h ,401), + (h A861) ,) AV (5.75) 
where XC and ZC represent the center of the basic cell. The 


rest of the variables in the source equation can be found in 


the following equations. 


Hla il: Hl 


RE = (o°7=(u;,,-u,) *VIS_/ (h, A8”) .) (n, 00” 


2, S 
hAe lis 


~~, ie 1 2 3 
RW = (051, -(u -uy_,) *VIS_/ (hy Ae") ) (hy Ae” AG”) 


r Zs 1 meek 2 al 3 

RN = S gl (a, 4] us) *VIS_/ (hA8 Py, (h, Ae h,A6 ad (ore 
z eZ i 1 2 1 3 

RS = 6 ~-(u us_1) *VIS_/(h,A6 ) ,) (hy A@™ AG") | 
a 3 a ali Z 1 KIT S 1 2 


RB = (9) (u'-uy_,) *VIS,/(haA®),) (h, 46" 487), 


81 


O oon 541 + a ) 

Scwe 13 13 

oS ee ee 

(5.77) 

nO moos iL 22 ii 1 iL 

a" = (o° “yh, AG), + 045, (hae) .)/((n, Ae”), + (hy Ae”) 2) 

337 aS 1 33 il iL 1 

a = (9 ~ (hy, AG), + oj", (hy, Ae) .)/((h, Ae"), + (h, a6") .) 

AU1 = ul 


2 2 
Au2 = {{(u ua 4, fh 5A6 . ta (hAé ae 4)/2 (hy he" i: ,1 n,09°),, + {(uy_) jar 200), 2 


2 2 1 1 i. 
u,_, (h,Ae ) ,)/2 (hy A8") 5] (hy Ae ) of /th, A687) + (h, Ae”), ) 
(5.78) 


AU3 = Ae”) tu (hhyA8™) ,)/2(ngQ6”) J (hy AO), +L (Ua yegy (gO), 


3 
(17 3 


5 3 5 il I di 
+ Us) (h,A§ ))/2 (n,A§ i (hy Ae ) t/ (ih, A6 ) ,t (hy AG ee 


AR = (p(hyzAot)y + pi-1 (hz A074) e)/( (hyde t)y + (hy A6+) @) 


ARU12 = AR *AUl * AU2 

ARU13 = AR * AU1 * AU3 (5.79) 
ARU22 = AR * AU2 * AU2 

ARU33 = AR * AU3 * AU3 
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RRY = (c12-aRuU12) * (h3A07)y * ((hzA6+) y-(H7 64) 5) 


RRZ = (o13-aRU13) * (h2A62)5 * ((hyA8*) g-(hyA6+)p) (5.80) 


: 


(022-ARU22) * (h3\63)_ * ((h2A67) o-(h2 A687) wy) 


+ (o93-ARU33) * (h2A62)5 * ((h3A6) e-(h3A67) w) 


The momentum equations for s2 and ©& follow the same 


form, but are omitted for the sake of brevity. 


G. PRESSURE CORRECTION 

The finite difference equations for energy and momentum 
are used to solve for the temperature T and velocity 
components ul, u2, u?,. The other two dependent variables, 
density 9 and pressure P, are related through the equation 
of state and the mass conservation Eqn. 5.17. As Doria 
(Ref. 37] pointed out, pressure is only weakly coupled to 
the equation of state. Therefore, the density is found from 
the equation of state by the use of updated temperatures and 
pressures. The mass conservation equation is used to 
correct for the pressure across each cell to ensure the mass 
1s conserved. 

The one disadvantage of using primitive variables is in 
the difficulty of calculating the pressure. In a closed 
system, the pressure changes everywhere if there is a net 
energy change in the system. If this happens a global 


pressure correction must be applied. A local pressure 
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correction is also used to account for changes in pressure 
within a region of the tank which determines the velocity 
field. 
1. Global Pressure Correction 

Nicolette, et al. [Ref. 4] developed a global 
pressure correction scheme for a two dimensional square 
enclosure. This scheme can be easily extended to the 
spherical/cylindrical geometry of Fire-1. 

The overall pressure levels are increased or 
decreased in a system of constant mass and volume depending 
on whether energy is added or removed. Knowing the mass of 
the system can not change, the density at equilibrium times 
the cell volume is equal to a constant mass value. To find 
the total mass of the system, the mass of each cell is 
added. At any particular time step later, the mass must 
still equal the total mass of the system at equilibeagme 


Summing over N cells, 


rh 
} op, (AV), = ) Pg, 3 (AV) | (5.81) 


where n indicates some time step later, and EQ indicates at 
equilibrium. 

The density is a function of pressure and 
temperature only when the cell volume is constant and an 
ideal gas assumption is made. Using a * to indicate an 


estimated value and a ‘' with a subscript g as the global 
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correction, the true values of pressure and temperature can 


be expressed as, 


rg 
ll 


P* + Pg (5.82) 


Te + Ty (5.83) 


bj 
il 


where at any time step the true value is the sum of the 
estimated value and the global correction. Substituting 
Eqns. 5.82 and 5.83 into Eqn. 5.81 and applying the ideal 


gas law, the global pressure correction can now be found. 


pi { Pag lt - AY) - J cerav/r*)1/) ae (5.84) 
The global pressure correction is added to P*, which for the 
first guess is generally the pressure at the previous time 
step. This procedure is continued until a pressure is 
obtained to conserve mass in every cell. 
2. Local Pressure Correction 

A local pressure correction procedure is described 
by Patankar [Ref. 36:pp. 120-126] and Doria (Ref. 37:pp. 26- 
2 |. First the pressure field is guessed at a given time 
step. This is usually the pressure field at the previous 
time step. The velocities are computed based on this 
pressure distribution. These velocities are used in the 


continuity equation. The residual mass source term, Smp- is 
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calculated for each cell. A sum of the absolute values of 
Smp gives an overall error for the conservation of mass for 
the system. If the residual mass source term does not fall 
below some predetermined value, the pressure must be 
corrected so that Syp 1s reduced. Using the corrected 
pressure, new values for the velocities are found. The 
process can be repeated using the corrected pressure as the 
new guessed value. The final pressure obtained will be a 
result of satisfying the mass conservation equation within 
the desired accuracy. Once the pressures are known, the 
densities for the next time step are found using the 
equation of state. 

The actual pressure equals a guess value plus a 


correction. 
P = px + Pp! (5.85) 


where a ' indicates a local correction, * still indicates a 
guessed value. 

The finite difference equation for the pressure 
correction is in a similar form to the other finite 


difference equations. 


) ’ 
ApPp = ApPr + AtgPrg + AyPy + AsPs + ArPr 


+ AgPg - SppAV (5.86) 


86 


where 


Pn 


Ds 


Pe 


Pw 


Pf 


Pp 


AE 


Aw = 


Ayn 


As 


AF 


Ap 


Pe 


Pn 


Os 


PF 


Ph 


Ap 


+ 


+ 


(0 (h2A6 7) 542 + P4541 (2 A6*))/( (hg 46%) 544 + 
(0 (hpA62) 5-4 + 94-1 (hg 46*))/( (ng 467) 4-4 + 
(ny AG +) 344 + P4471 (hy 46+) )/( (hy 46+) G44 + 
Be, + 04-2(hy AS*))/( (hg 401) 4-4 + 
7 + 0447 (hs A687) )/( (ha A03) 444 + 


AGF) p24 - 
3) + Op-1(h3 Ae?) )/((h3 
mons 80-1 


1 
Z u 
3 (A 
(hg Ae* hz A6?)* / (Ap 


+ Of AV/At) 
i+l 


1 | 
nA : p 1 Omeoy fA 
Z | 
é + Pe AV/A 
(hy Ast h3 Ae?) S/ (Ap s AV/At 
h - : + V/At) 
Z: u 5p AV/ 


2) 2a + pp AV/At) 
(hz Ae? ho Ae?) 5 


aR 
As + Ap 

a2 eh) Be S 
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(haA6 ¢)) 
(ho 462) ) 
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(hy Ae Fe, 


(hy 467) ) 
(hz 46?) ) 


(h3 A) ) 


(5.88) 


(5.89) 


(5.90) 


(5.91) 


(5.92) 


(5.93) 


(5.94) 


Once the pressure correction is known, it is added to the 
guessed value to obtain the actual pressure. The new 


velocities are found from the following equations. 


ut = ul* + ul (5.95) 
u2 = u2* + u2' (5.96) 
u3 = u3* + ud! (5.97) 
where 
' ut 
ul’ = (exe P,z) (hoAe? h3 3) »/ (Ap + Oy AV/At) (5.98) 
2 
ue’ = (PS = Pe) (hte) he Ae) 7 oe AV/At 5.99 
p s) (Ny 3 p/ bAp Pg AV/AT) (5.99) 
3! 1 2 Ww 
u (Py - Pp) (hy A+ ho 064) p/(Ap + Pp AV/At) (5.100) 


The value for Spp is computed. If it does not fall 
within the desired limits, a new value for P' is computed. 
The cycle continues until Smp satisfies the limits put upon 


hem 
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VI. COMPARISON OF THE NUMERICAL RESULTS WITH 
THE EXPERIMENTAL DATA 

As noted before, the computer model developed here is 
designed to simulate fires in Fire-1, the test facility 
maintained at NRL. The general theory behind the 
development of the computer model has been given in the 
preceding chapters. This chapter will describe the computer 
model as it specifically applies to Fire-1l. A brief 
explanation of the required parameters will be given, along 
with the solution procedure for the computer code. Three 
test cases will then be compared with the experimental 
results obtained in Fire-1l. 

The first test case (Trial 1), followed the procedure of 
Nies [Ref. 31]. The required heat release data was 
generated from the pressure curve. A pressure tracking 
routine waS applied, forcing the calculated pressure to 
follow the experimental curve. In this case, only the 
temperatures can be compared to the experimental data to 
verify the computer code. 

The second test case (Trial 2), used given heat release 
data. NRL did provide burn rate data that was known to be 
inaccurate. The inaccuracy was assumed to be the result of 
applying an incorrect scaling factor to the data. It seemed 
plausible to try and use the data to observe the general 


trend of the pressure and temperature. In this case, 
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pressure and temperature can both be used to verify the 
computer code. 

The third test case (Trial 3), 1s a combination of the 
two preceeding test cases. The heat release curve is 
modified to follow the same trend as in Trial 2, but at a 
magnitude determined by Trial 1. 

The computer program will generate pressure, 
temperature, and velocity fields. The overall pressure of 
the tank at each time step will be compared to the 
experimental results. The computer program will also 
calculate the temperature located at a position 
corresponding to a thermocouple in Fire-1 (see Fig 1.1). 
Experimental readings for three thermocouples will be 
compared to the computer model for each test case. 

Besides a direct comparison to the experimental results, 
velocity and temperature fields from Trial 3 will be plotted 
at various time intervals and at selected cross sections. 
This will provide a way to show the development of 
recirculating flow patterns and penetration of heat with 


e1me- 


A. NUMERICAL SIMULATION PARAMETERS 

Specific parameters must be defined in order to 
represent a particular fire scenario. The following items 
must be known: initial conditions, type of fuel used and 
its burn rate, location of the fire, location of the 


thermocouples, physical dimensions and material composition 
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of the tank, plus any other items included in the tank, le. 


decks, fans, etc. The computer code represents a fire in 
Fire-l. The physical description along with the sensor 
locations for Fire-1 can be found in Chapter I. Fire-1 is 


made of 3/8" ASTM--285 Grade 


steel. The macerlal 


properties required for the program are listed in Table 2. 


TABLE 2 


SPECIFIC PARAMETERS 


WALL CHARACTERISTICS 
Thickness 
Specific Heat 
Thermal Conductivity 
Density 

fer, CHARACTERISTICS 
Type of Fuel 
Burn Rate 
Initial Temperature 
Initial Pressure 


Location 


37 3eeen 
sleeeoieuy (liom F) 
Zomebeu/,( hr Bia} 


487 lbm/ft? 


Methanol 
Provided 

25.626 

Oa eATM 

Center of Fire-1 


23.1 ft from endcap 
So 2 eer roms OO tt OM 


The fire scenario considered here does not include any 


decks, fans, or anything else in the interior of Fire-1 


mesides the fire itself. The fuel used was methanol. The 


location of the fire was at the center of the tank; 23.1 
feet from either endcap, and elevated 3.21 feet from the 
bottom of the tank. The ambient, or initial, temperature 
and pressure was 35.6°C and 1 atmosphere respectfully. 

Once the physical characteristics are entered into the 
program, the grid size and time step must be determined. 
Due to the spherical/cylindrical geometry of Fire-1, a 
uniform grid is not practical. The grid is represented by 
Figures 6.1 and 6.2. Instead of an X,Y,Z, grid, it Siam 
R, d0grid for the spherical endcaps and 0, R, Z grid for the 
cylindrical midsection. The theta direction has 20 cells. 
The R direction has 12 cells representing the interior of 
the tank and one cell representing the tank wall. Another 
cell surrounds the vicinity of r = 0 and is used to avoid 
Singularity. Each spherical endcap also has one cell for 
Singularity problems along with a division of five cells. 
The cylindrical midsection has 18 cells in the Z direction. 
Further information can be found in Table 3. Increasing the 
number of grid points was not practical because of the large 
amount of CPU time already required for this grid. 

The stability of the computational results depended on 
the time step chosen. Initial calculations were done with a 
time step of .0288 sec. Once instability was reached, the 
program was continued with a smaller time step. The bulk of 
the program was accomplished at a time step of .0192 sec. 


Approximately 80 time steps were accomplished per hour of 
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e 6.1 Vertical Cut Through the Computer Model 


| Figur 





TABLE 3 


COMPUTER MODEL PARAMETERS 


GRID 
Total number of interior cells 6720 (207% 127% 23) 
Total number of tank wall cells DOO. (20 XX 2d) 
Total number of wall radiation zones 560 
Total number of fire radiation zones 19 
Number of cells in the theta direction 20 
Number of cells in the R direction 14 

- interior cells 2 

- wall cells i 

- r=0 , stability i 
Number of cells in the phi direction jp 

- each end cap 5 

- stability (each end cap) 1 
Number of cells in the z direction 18 
TEME STEP 

Varied 0.0192 = .0288 sec 
CPU TIME 

80 time steps/CPU hr ~ 1 sec fire time 
EXTERNAL HEAT TRANSFER COEFFICIENT Seo BLU, ~ie ft FP) 
CPU time. This averaged to one sec of fire time for every 


hour of CPU time. 
The external heat transfer coefficient is not known. It 
1s estimated and becomes another parameter that can be 


changed. 


os 


B. SOLUTION PROCEDURE 

The total computer model is actually composed of two 
separate programs. The radiation program in Appendix A 
calculates the view factors and then inverts them to provide 
the main program with a matrix of the form described in Egn. 
(27). This program only needs to be run once with the 
results stored and read when needed. 

The main program follows the same type of flow chart as 
described by Nies [{Ref. 31:pp. 56-57]. After the initial 
parameters are read, the effective viscosity is found using 
the subroutine CALVIS. The radiation flux to the walls is 
updated every two time steps. The subroutines to calculate 
temperature, pressure, and velocity, all use a semi-implicit 
technique to solve the matrices formed by applying the 
finite difference equations discussed in Chapter V. First 
the temperature is found using CALT, then the global 
pressure is found followed by the density. An iteration 
loop is entered to find the three velocity components and 
local pressure correction. The local pressure correction is 
then used to update the velocities. The continuity equation 
1s applied to each cell to calculate the residual mass. The 
sum of the absolute value of all the residual mass terms is 
called RESORM. If this term is extremely large, i.e., 
greater than ten, the program will stop indicating an 
instability problem. In the past this problem was resolved 


by lowering the time step. If the RESORM term is larger 
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than the tolerance value and below ten, the program will 
iterate the solution by recalculating the velocities and 
pressures. Because of the large amount of CPU time already 
required, the temperature, global pressure, and density are 
recalculated every third iteration. This also allows for 
the velocities to stabilize before changing the temperature. 
The iterative procedure will continue before proceeding to 
the next time step unless one of the following three things 
happen; the maximum number of iterations has been reached, 
the RESORM term is less than the tolerance, or if the CPU 


time for that particular run is almost exhausted. 


C. TRIAL 1--PRESSURE TRACKING 

Because of the uncertainty of the burn rate data 
provided by NRL, it was decided to use the method developed 
by Nies [Ref. 31] for one case. This method is a temporary 
solution pending accurate burn rate data. The first 
approximation is to assume the energy provided to a cavity 
is used almost exclusively to raise the pressure. This 
assumes the conduction through the tank walls is minimal and 
the motion of the gas does not require a large percentage of 
the energy. 

Assuming the heat input is uniform, the rate of heat 
input is a constant times the temperature. Using the ideal 
gas law P =oORT with 09 and R being constant, the heat 


release rate is proportional to the change in pressure with 
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respect to time. From the experimental pressure curve, the 
first derivative can be found. 

Nies [Ref. 31] developed a pressure tracking routine to 
force the calculated pressure to follow the experimental 
pressure curve. This was done to account for the conduction 
losses as time increases. 


The correction factor is computed as follows: 


O 
Pp -p Pp -p 
; data “co CO comp 
Correction = ———— - (6788 
data data 


where Peomp 18 the computed pressure, i is the computed 
pressure from the previous time step, and Pgsata is the 
experimental pressure. 

1. Numerical Results of Trial 1 

The computed heat input curve has oscillations 
present, Figs 96.2. Nies [Ref. 31] had a similar result. 
Oscillations will enter into this case due to the correcting 
scheme and the use of the derivative of numerical data. 

The pressure of the tank over 240 sec of fire time 
is found in Figure 6.4. This curve illustrates how the 
pressure tracking routine forced the calculated values of 
pressure to follow the curve fit through the experimental 
points. 

The only other way to verify the model is to compare 
the thermocouple temperatures with the temperatures obtained 


by the model at the same location. This model is of the 
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Same geometry as Fire-1 eliminating the requirement of 
finding an equivalent thermocouple location as Nies [Ref. 
31] had to do. The corresponding temperature is found by 
interpolating the temperatures of the surrounding cells of 
the actual thermocouple location. 

Temperatures from three thermocouples were chosen 
for comparison with the experimental data. These 
thermocouples showed the greatest change in temperature 
during the fire. The temperatures in the lower region of 
the tank changed only slightly. For this reason, they were 
not compared. All three thermocouples are located in the 
south hemispherical endcap as shown in Fig 1.1. 
Thermocouple 1 is located 79 inches above the midplane of 
the tank. Thermocouple 2 is one foot below thermocouple 1, 
and thermocouple 4 is two feet below thermocouple 2. The 
comparison between the computational and experimental 
results can be found in Fig 6.5-6.7. The pressure tracking 
routine forced the pressure to go through slight variations. 
Because of this, the data for the heat input rate and the 
corresponding temperatures amplified these variations by 
going through large oscillations. The computational results 
for all three thermocouples have the temperatures exceeding 
the experimental results by at least 20°C . The curves do 
tend to level off at about the same time as the experimental 
curves. This indicates that the same time is predicted for 


a quasi-steady state condition where heat in equals heat out 
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for both the model and Fire-l. The overall level of the 
temperature comparison is acceptable, but the oscillations 


are too large. 


D. TRIAL 2--SIMULATED BURN RATES 
NRL did provide a set of burn rate data for the methanol 
fire. During the experiment, there were indications of the 
burn rate data not being accurately recorded. The error was 
believed to be associated with a scaling factor. Even 
though the accuracy of this data was suspect, it was used to 
predict how pressure and temperature would respond to burn 
rate data input. A third order polynomial curve fit was 
applied through the burn rate data and entered into the 
program. 
1. Numerical Results of Trial 2 
The pressure curve, Fig. 6.8, had an initial gradual 
slope followed by a sharp increase in pressure. The same 
three thermocouple temperatures are used to compare the 
experimental data to the computer model. The temperature 
curves are found in Figs. 6.9-6.11. The computational 
temperature initially followed the experimental curve, but 
then overshot the experimental readings by a factor of two 
for thermocouples 1 and 2. Thermocouple 4 had temperature 
readings below the experimental temperature, but the 
numerical result was beginning to show an increase in slope 
at the end of the computer run. Both temperature and 


pressure did not show any sign of leveling off, indicating 
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the heat input curve was too high. By applying a steady 
heat input curve, the temperature and pressure did not 
oscillate as in Trial 1. Therefore, oscillations were not a 
problem, but the levels for temperature and pressure were 


not correct. 


D. TRIAL 3--COMBINATION 
After reviewing the results of Trial 1 and Trial 2, it 
was decided to use a combination of the two cases. Trial 1 
involved a pressure tracking routine known to cause large 
oscillations in heat input and temperature curves. In Trial 
2, the experimental burn rate used was too high. This 
resulted in exceeding experimental pressure and temperature 
data. The combination case will use the burn rate data 
generated from Trial 1. However, this data will be modified 
by applying a third order polynomial fit through the data 
points (see Fig. 6.12). This gives a burn rate curve of the 
same form as Trial 2, but modified in terms of magnitude to 
allow comparison between the numerical results and the 
experimental data. Using a burn rate curve as input, both 
temperature and pressure are available for validation of the 
computer code. 
1. Numerical Results of Trial 3 
The pressure of the tank over 130 sec of fire time 
is found in Fig. @62iee Unfortunately, due to the large 
amount of CPU time required to run one case, the shorter run 


time expressed here was all that could be accomplished for 
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this thesis. Early indications show the pressure obtained 
by the computer code fall below the experimental curve. 

The temperature comparison for the three 
thermocouples can be found in Figs. 6.14-6.16. The 
temperatures also show slight oscillations, but not to the 
extent as Trial 1. Thermocouple 1 tracked closely to the 
experimental temperatures. It is interesting to note the 
experimental temperature did start at a higher temperature. 
The initial assumption used in the computer code was for all 
the temperatures in the tank to equal the ambient 
temperature, which was 35.69C on the day of the test. 
However, by extracting the data from the curves provided by 
NRL, Fig. 6.17, the initial temperature of the thermocouples 
varied. This could be due to a slight internal heating of 
Fire-1 by external means, i.e., the sun. Fire-1 is not 
enclosed inside a building. If the initial temperature of 
the computed thermocouple readings were increased to match 
the experimental data, the curves would show a closer 
correlation. 

Thermocouple 4 has experimental points that are 
extremely hard to read in the initial few minutes of the 
test run. This could result in a misrepresentation of the 
experimental curve. The experimental temperature curves 
used for comparison between the computer model are generated 
from applying a smooth curve through a few experimental 


points from TCS tala les Actually the experimental 
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temperatures do have slight oscillations and uncertainty 


values associated with them. 


EP. RESULIS 

Of the three test cases, Trial 3 has the best 
correlation to the experimental data. However, this was the 
result of combining the two previous trials. This further 
amplifies the need for accurate heat release data. It de 
not practical to do an entire computer simulation using the 
principles of Trial 1 just to ob*a:n a heat release curve. 
And then use this curve as input to run the actual case. It 
1s necessary to have the required experimental heat release 
data as input in order to accurately assess the computer 


code. 


G. VELOCITY PROFILE AND ISOTHERM PLOTS 

The velocity profile and isotherm plots are given for 
Trial 3 since this trial is the best representation of the 
actual fire in Fire-1l. Fig. 6.18 shows the location of the 
two-dimensional cross sectional areas chosen for 
examination. The three representative locations are located 
at the midplane through the center of the tank and through a 
circular cross section at the fire and thermocouple rack. 
Fig 6.19 through 6.30 show the three planar views of the 
velocity and isotherm plots at 30, 60, 90, and 130 sec. 

These are two dimensional plots of a three dimensional 


model. This is the only means available at this time to 
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Figure 6.18 Location of Cross Sections used 
for Isotherm and Velocity Plots 
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Figure 6.20 Velocity and Isotherm Plots after 
30 Sec at Fire Center 
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Figure 6.21 Velocity and Isotherm Plots after 
30 Sec at the Thermocouple Rack 
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Velocity and Isotherm Plots after 60 Sec at Midplane 
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Figure 6.23 Velocity and Isotherm Plots after 
60 Sec at Fire Center 
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FIgure 6.24 Velocity and Isotherm Plots after 
60 Sec at the Thermocouple Rack 
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Figure 6.25 Velocity and Isotherm Plots after 90 Sec at Midplane 
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Figure 6.26 Velocity and Isotherm Plots after 
90 Sec at Fire Center 
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Figure 6.27 Velocity and Isotherm Plots after 
90 Sec at the Thermocouple Rack 
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Figure 6.29 Velocity and Isotherm Plots after 
130 Sec at Fire Center 
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Figure 6.30 Velocity and Isotherm Plots after 
130 Sec at the Thermocouple Rack 
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display the data. These plots can be misleading, especially 
if the velocity appears to be flowing to a single point. 
The single point actually represents the tip of another 
velocity vector in the third dimension. 

The velocity fields were not plotted using the same 
length scale. This can be deceiving unless aware of this 
point. Therefore some of the plots appear to exhibit a more 
pronounced velocity field when in fact it was just the scale 
used. The isotherms are constant for each of the plots, 
each line representing a 20°C range in temperature. 

At 30 seconds, most of the tank is still at ambient 
temperature. Isotherms are concentrated above the location 
of the fire, indicating the hot gases are confined to this 
region. The cross section at the thermocouple rack does 
not see any noticeable change of temperature at this time. 
The velocity field at the midplane of the tank exhibits a 
strong upward flow in the region of the fire. This flow 
extends to the overhead resulting in a ceiling jet across 
the top of the tank. The velocity field tends to follow the 
geometry of the tank, recirculating back to the center. The 
lower region of the tank exhibits very little motion. The 
velocity field at the thermocouple rack has a downward flow 
that extends to a recirculating flow in the third dimension. 

At the following time intervals, the isotherms begin to 
extend further into the tank. This is a valuable tool to 


see how the hot gases extend into the tank with respect to 
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time. The velocity fields show unique flow patterns at the 
three cross sections at each of the time intervals. The 
recirculation patterns follow the tank geometry, but do 
develop a changing flow pattern with respect to velocity and 
direction. This will become important when smoke is entered 
into the program to see how smoke penetrates the tank and 


where it becomes concentrated. 


ESS 


A. 


VII. CONCLUSIONS AND RECOMMENDATIONS 


CONCLUSIONS 


The conclusions drawn from this initial simulation of 


the spherical/cylindrical geometry of the computer code are 


as follows: 


1) 


2) 


3) 


4) 


5) 


The pressure tracking case, Trial 1, provided a 
numerically generated heat release curve from other 
available sources. The pressure was forced to follow 
the eé.sperimental curve causing large oscillations in 
the heat release and temperature data. 


Trial 2 used a third order polynomial fit of the 
experimental data provided by NRL. The pressure and 
temperature did not oscillate greatly, but the values 
obtained were very high. This indicated the 
experimental burn rate data was also too high. It was 
known at the onset that the heat release data could be 
off by some unknown scaling factor. 


Of the three test cases examined, Trial 3 was a better 
representation of the fire in Fire-1. This case 
combined the heat release rate levels obtained from 
Trial 1 with a third order polynomial fit variation 
from) Triale2, The results were a realistic burn rate 
curve to use as input into the computer code. The 
temperature readings at the three thermocouples did 
correspond to the experimental data during the first 
130 sec of fire time. The pressure was maintained 
below the experimental curve. 


A realistic flow pattern has been observed for Trial 
3. The fire plume was shown to increase the velocity 
of the gas toward the overhead resulting in a ceiling 
jet. The flow follows the geometry of the tank and 
develops various recirculating flow patterns with 
respect to time. 


The isotherm field plots for Trial 3 illustrate how 
the hot gases are concentrated in the overhead. With 
time, the isotherms begin to stratify and penetrate 
the lower regions of the tank. 
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6) 


B. 


Trial 3 will be continued to ensure the temperature 
and pressure curves maintain a proper level in 
comparison to the experimental data beyond 130 
seconds. Further validation of the computer model 
should be done with accurate heat release rate data 
before additional complexities are incorporated into 
the model. 
RECOMMENDATIONS 


The following are recommendations for the future work 


regarding computer simulation of a fire in Fire-1: 


1) 


2) 


3) 


4) 


3) 


6) 


Continue with the code validation of the 
spherical/cylindrical geometry by validating the model 
with experimental heat release data. 


Explore the possibility of transferring the program to 
a supercomputer. The large amount of CPU time it 
takes to run this program necessitates the use of a 
larger, faster computer. 


Incorporate more computer graphics to display the 
results. This program generates a huge amount of 
data. The best way to fully understand what is 
happening in Fire-1l is to see it displayed in three 
dimensional form. The use of color graphics would be 
the more preferable option. 


Begin adding complex interior partitioning. The next 
step in the computer code would be the addition of 
decks and recirculating fans. The computer code has 
been developed and iS now waiting for validation 
studies. 


Improve the physical models already present’ and 
incorporate other models. A combustion model will be 
added to the computer code to account for the 
distribution of the heat release rates from the flame. 
Gaseous radiation will be included in the radiation 
model and the turbulence model will be updated. 


The ultimate goal of this project is to develop a 
computer model that will be able to simulate a 
shipboard fire scenario. This model will then be able 
to assist in the design of a ship and fire control 
tools. 
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APPENDIX A 
FORTRAN LISTING OF THE RADIATION MODEL 


CARKKKKAKKAAKKKAKRKRRAKRKKRKKKRRARRKAKKRRERAKARKEKRRARAKRKKKKRKRKRRRRRKRRRKRARRRRRRRAKKK 


COMPUTER PROGRAM FOR THREE-DIMENSIONAL SURFACE 
RADIATION FOR THE SPHERICAL/CYLINDRICAL GEOMETRY 
OF THE NAVY STORAGE TANK, Fine 


DEVELOPED Bx 
J.K. RAYCRAFT AND M.D. KELLEHER 


NAVAL POSTGRADUATE SCHOOL 
MONTEREY, CA 93940 


AUGUST 1987 
KAKKKKAKKKKKKKKKAKKKKKKKRERAKKKKKARKKKRKAKKKKERKERKEKRKEKKRKRKKKKKKKKKKKKKK 


THERE ARE MI DIVISIONS IN THE THETA DIREG@aae: 
MJ DIVISIONS IN THE R  eieeerron 
MK DIVISIONS IN THE 24 DikECITGH 
MKN ON THE NORTH SPHERICAL Eps Gre 
MKS ON THE SOUTH SPHERICAL END CaP 
MKC ON THE CYLINDRICAL PORTION OF THE TANK 
( MEN + MKS = MK = ork 


FOR THE NORTH SPHERICAL END CAP THERE ARE MI*MKN DIVISIONS 
NUMBERED 1 TO eves inn 

FOR THE CYLINDER THERE ARE MI*MKC DIVISIONS 

NUMBERED MI*MKN + 1 TO MI * (MKN + MKC) 

FOR THE SOUTH SPHERICAL END CAP THERE ARE MI*MKS DIVISIONS 
NUMBERED “MI*(MNKN + MKG) +l 20st. 


MREGN1 REPRESENTS THE NORTH SPHERICAL ENGger 

IREGN1 IS THE FINAL CELL NUMBER IN THE NORTH CAP (MI*MKN) 
MREGN2Z REPRESENTS THE CYLINDER, STARTING Atak ech ae 

IREGN2 IS THE FINAL CELL NUMBER IN THE CYLINDER (MI*(MKN+MKC) ) 
MREGN3 REPRESENTS THE SOUTH SPHERICAL END CAP,START AT TReGhgam 
IREGN3 IS THE FINAL CELL NUMBER IN THE SOUTH CAP (MIAME) 


THE SCHEME TO NUMBER THE CELES 5 AS eOEEO ice 


Koviiyicsiiz REPRESENT THE NORTH Sean 
1 TQ IREGNI 

KSM3 , KSM4 REPRESENT THe Gyan re 
MREGN2 TO IREGNZ2 

Kos) Ksiio REPRESENT THE SOUTH Sep re 


THE REASON EACH REGION IS REPRESENTED BY TWO SETS OF THEwoai 
NUMBERS IS BECAUSE THE REGIONS "SEE" THEMSELVES) Dees.) ore 
SPHERE CELL SEES OTHER NORTH SPHERE CELLS AND THERE RASS iGees 
A WAY TO REPRESENT VFMXR(5,5). 


THE CELL NUMBERING IS ACCOMPLISHED IN "DO LOOPS". STARTING AT 
THE NORTH END, THE FIRST VALUE FOR THETA AND K IS CELL ONE, 
THE STARTING NUMBER FOR EACH REGION IS KSM_(MINIMUM VALUE) 
THE VIEW FACTOR TO ALL OTHER CELLS IS ACCOMPLISHED BY FIRST 
FINDING THE OTHER CELLS IN THE SPHERE, KSM2 VARIES FROM 1 TO 
MI“MK, WITH THETA VARYING CCW FIRST THEN Z. EACH TIME THROUGH 
THE DO LOOP TO CHANGE EITHER THETA OR Z, KSM2 INCREASES BY 1. 
ONCE THE CYLINDER BOUNDARY IS REACHED, A NEW INNER DO LOOP IS 
USED, THIS TIME VARYING KSM3, AND THEN KSM5 FOR THE SOUTH 
HERE. 
THE NUMBERING SYSTEM FOR THE CELLS IS FROM NORTH TO SOUTH, 
SPIRALING AROUND THE TANK, VARYING THETA THEN Z. RECIPROSITY 
IS USED TO FIND CORRESPONDING VALUES IN THE MATRIX, IE. 
VFMXR(5,250) AND VEMXR(250,5 


ANANANANAANAANANAAARAAAAAANRAAAAARAANAAAANAAAANAAANAAANRAAAANANAAAAAAAAAAANAAANAAANAAANAN 
DO OR OO OR OO OO OR OR Ob OR OO OR Ob Ob ORO OR OR OR OR OR OF OR Ob OR OR OO Oa 


e * 
co * 
C THE NODE NUMBERING SYSTEM IS AS FOLLOWS: x 
C THETA DIRECTION x 
a STARTING NODE = NIS , FINAL NODE = NI * 
a MI = NI - NIS x 
€ Z DIRECTION * 
C STARTING NODE (NORTH END) = NKS x 
Ec NODE BETWEEN NORTH END CAP AND CYLINDER = NA * 
C NODE BETWEEN CYLINDER AND SOUTH END CAP = NB x 
c WHERE MK = NK - NKS x 
e NA = NKS + MKN * 
Cc NB = NKS + ( MKN + MKC) : 
: * 


KKAKKAKEKKKAKARKKRKAKKRKKRKRKAKKRKKKRKRKRKAKKKRKRKRRAKRKRKAKKRKRKRRRKRRKRKRRKRKRRKRKRKRKARAKKRAKKRKKRK 


COMMON/BL1/ NIS,NI,NKS,NK,NA,NB,MI ,MK,MKN,MKS,MKC,CL,DTHETA, 
Peer DrHis, Dal ,D2Z2,D023,21,R,P1,2CYL1,Z2CYL2Z 


COMMON/BL2/ PHI(33) 


/THETA(2:21,33),2(2:21,33) ,AREA(10) ,AREAC 


COMMON/BL3/ MREGN1 ,MREGN2 ,MREGN3 , IREGN1, IREGN2,IREGN3,KSM1,KSM2, 


Paolo) Kole, KSM5,KSM6 


COMMON/BL4/ VFMXR(579,579), DELY(2,12),RF 
COMMON /BL5/WVFNN(2:21,3:7,2:21,3:7) ,WVFSS(2:21,26:30,2:21,26:30), 


& WVFSN 
& WVFCS 
& WVFNS 





2-22 o 2350 ;2: : ; 
Ceo Meere 2-21 2eeeO), MvieSee2.21,26:30,2:21,8:25), 
Pectin 2) 26°30) WVECN(2.21,6:25,2:21,3:7), 


Zap eects? ,2:21,8:25 


SWVFCC(2:21,8:25,2:21,8:25) 
COMMON /BL7/ r2i39) WENGE (2 42,2:21,-26/30) (VEnC(2,{2, 2/21 8 


Se RRNS(2,12,2:21,3:7 
SVenNon(2:21,3:7,2,12 


Dein cehaie oa 


Poaceae 
BobooMe@cec 1. ,26::50),2,12 


mveGnn 22176225 ,2,12 


eS eee EMRE O17 e ed Pedge tea 579), 


& CONSRA, NHSZ,AR(579) ,EM( 


2D LE RE, 


CARKKAKKKKRRKRKKKRKKRKKKKKRKAKRKRKKRRKAKARKRKARKRRKKRRKARKRRRRKRKARRRKARRRKAKRRKARAKRRKRKRRAKRKRAKRK 


THE MAIN PROGRAM ESTABLISHES THE REQUIRED INPUT VARIABLES FOR THE 
SUCESSFUL RUN OF THE PROGRAM. IT ALSO WILL CALCULATE THE SIZE 
One Ge REGIONS INVOLVED FOR THE “I,J,K* INDICIES. 


FROM THIS PROGRAM 


THe DEFINITION OF 
FOLLOWS : 

NKS 

NA 


NB 


ZCYLZ 
FPAND 
DIAFP 
ee ee 


AAAANNIINANIANIANAAANARAANANANNNANANANIAANAN 
m 


RF 


ALL OF THE OTHER SUBROUTINES ARE CALLED. 
THE VARIABLES USED IN THIS SUBROUTINE ARE AS 


STARTING NODE NUMBER FOR THE K INDICE (Z) 
NODE NUMBER BETWEEN THE NORTH SPHERE AND THE 
CYLINDER 

NODE NUMBER BETWEED THE CYLINDER AND THE 
SOUTH SPHERE 

FINAL NODE NUMBER FOR THE K INDICE (SOUTH END 
STARTING NODE NUMBER FOR THE I INDICE (THETA) 
FINAL NODE NUMBER FOR THE I INDICE 

STARTING NODE NUMBER FOR THE J INDICE (R) 
FINAL NODE NUMBER FOR THE J INDICE 

THE RADIUS OF BOTH THE SPHERE AND CYLINDER (FT)* 
THE CYLINDER LENGTH ALONG THE Z AXIS (FT) x 
Even. He NG lo MEASURED FROM THE NORTH END, 
THEREFORE THE Z AXIS GOES FROM 0 TO 48.6 (TOTAL* 
LENGTH OF THE PRESSURE VESSEL) THIS IS THE Z@ 
DISTANCE WHERE THE CYLINDER STARTS Cha.) 

Pee lol iCh WHERE THE CYLINDER STOPS AND THE 
SOUTH SPHERE BEGINS (FT 

Deeb e he OP RIRE CELLS THAT ARE BELOW THE 
FIRE PAN 

THE DIAMETER OF THE FIRE PAN (FT) 

THE Z DISTANCE WHERE THE HEAT SOURCE IS LOCATED 
A DUMMY VARIABLE THAT WHEN EQUAL TO O WILL 
ALLOW THE PROGRAM TO IGNORE THE SHADING CAUSED 
Pao tReeer Looe Ie THE FIRE IS CONSIDERED 
IFTIRE SHOULD BE ANYTHING EXCEPT ZERO. SHADING 
REFERS TO THE VIEW FACTORS BETWEEN TANK CELLS 
RADIUS OF THE FIRE PAN (FT) 


Oe OO Ob OO OO OO OO 


2 OO OO Ob Ob Ob OR Ob OO Ob Ob OF OF 
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AANAANANAANANAANANANANAANANANANNANANAANNNANNANANANAAANNNANANNAANNNANNANNANNNA 


GRID 


WALL 


VIEW 


HEAT 


AREAI1 


INVER 


THE SUBROUTINE THAT CALCULATES THE AREAS OF THESGiiiae 
PLUS THE 2 AND THETA “LOCATIONS BOR EACH eer un 


THE SUBROUTINE THAT CALCULATES THE VIEW FACTORS FROM 
ONE TANK CELL TO ANOTHER. IF THE FIRE INTERSECTS Tae 
LINE OF SIGHT OF THE CELLS, IT SHADES THAT VIEW Ae 
AND THE VIEW FACTOR IS SET TO ZERO. THE MATRICES Sia 
FOUR INDICIES. I,K THETA AND Z LOCATIONS ERGMMRae 
STARTING CELL. II,KK THETA AND 2 LOCATIONS TO THE CEs 
THE RADIATON IS GOING TO. NOTE BE CAREFUL OF THE INDICE 
NOTATION IN THE COMMON STATEMENTS. #1:#2 IN THE 
NOTATION MEANS #1 = CELL STARTING FROM #2 = CELL GOINC 
THROUGH. FOR EXAMPLE WVFSN(2:21,26:30,2:21,3:7) 
WVFSN = WALL VIEW FACTOR SOUTH SPHERE TO NORTH SPHERE 
(I,K,II,KK) FOR BOTH TIMES WHERE 2:21 APPEARS IT STANDS 
FOR I AND II MEANING THE THETA CELLS WHICH GO THROUGH 
CELL NUMBER 2 THROUGH CELL NUMBER 21. THESE ARE CHE 
NUMBERS NOT NODE NUMBERS. THE SOUTH SPHERE HAS CEIS 
26 THROUGH 31 AND THE NORTH SPHERE HAS CELLS 3 THROUGS 
7 WHICH CORRESPOND TO K AND KK RESPECTRBULLY . ER 
PROGRAM IS TO BE MODIFIED IN THE FUTURE THE COMME 
STATEMENTS WILL HAVE TO BE CHANGED TO CORRESPONDSIG 
THE RIGHT CELL NUMBERS. THIS IS ONLY IF THE PROGRARIS 
TO BE ENLARGED. A SMALLER MATRIX CAN BE RUN WITH THES 
PROGRAM BUT NOT ALL THE SPACE SET ASIDE WOULD BE USERS 
Le a ee ee PROGRAM IS GENERAL AND WILL NOT HAVE TO 
GED: 


THIS SUBROUTINE TAKES THE WALL VIEW FACTORS AND PUES 
THEM INTO ONE ARRAY WITH TWO INDICES VICE FOUR. IT 
ASSIGNS A NUMBER TO EACH OF THE CELLS FROM Ll TO@mSage 
THE NUMBERING IS FROM THE NORTH ENDCAP AND SPIRALS 
AROUND THE TANK. THETA VARIES THEN 24. 


THIS SUBROUTINE INTRODUCES THE FIRE CELLS INT@eia@ 

VIEW FACTOR MATRIX. FIRST THE VIEW FACTORS FROME ae 
FIRE TO EACH TANK CELL ARE FOUND. THESE VIEW FAGTGRS 
ARE THEN MODIFIED DUE TO THE PROBLENS EXPERIENCED SWS 
GEOMETRY OF THE TANK. THE VIEW FACTORS FROM THE WALL Tf 
THE FIRE ARE FOUND THROUGH RECIPROSITY, AND NODIFIED 
DUE TO THE UNKNOWN EXACT AREA OF THE FIRE. THE FOUR 
INDICE MATRIXS ARE THEN PUT INTO THE PREVIOUS TWO INDIG& 
MATRIX. THE FIRE CELLS ARE NUMBERED FROM THE PUR 
TO THE TOP OF THE TANK.(CELLS 561 - 579) THE VIEW 
FACTORS FROM THE FIRE CELLS TO THE FIRE CELLS BRE 
SE Sloe ZERG. 


THIS SUBROUTINE ASSIGNS AN AREA TO EACH CELL. 'GRID'SEH@ 
UP A GENERAL AREA THAT COULD BE USED IN 'WALL' BUT IN 
ORDER TO USE THE 'INVER' SUBROUTINE AN EASIER WAY HAD 
TO BE DEVELOPED TO INDICATE AREA; 


THIS SUBROUTINE TAKES THE VIEW FACTOR MATRIX, INCLUDING 
THE FIRE CELLS AND SETS IT IN THE EQUATION DEVELOPED Tm 
SPEIGAL/HOWELL TO FIND THE HEAT TRANSFER RATE. THE GOAI 
OF THIS PROGRAM INVOLVES MODIFIYING THE VIEW FACTOR 
MATRIX AND TAKING THE INVERSE TO PROVIDE A NEW MATRIX 
THAT WILL BE USED IN THE "TANK' PROGRAM TO CALCULATE 
HEAT TRANSFER. THIS NEW MATRIX IS REFERED TO AS VEMXG 
IN THE PROGRAM OR TO THE 'G" MATRIX FOR DISCUS2 eam 
PURPOSES. DO TO THE NUMBER OF LARGE MATRICES REQUIRED 
FOR THIS MODIFICATION/INVERSE PROCEDURE, A SPACE SAVING 
PROCEDURE WAS USED TO WRITE OVER MATRIX LOCATIONS: 

THE IBM INSL PROCEDURE, LINVIF, WAS CALLED TO) DG—ias 
MATRIX INVERSION. AFTER THE MATRIX IS INVERTED Sos 
MULTIPLIED BY ANOTHER MATRIX AND THE RESULTING "G" 
NATRIX IS SENT TO A DISK FOR USE IN THE TANK PROGHaais 


THIS IS A GENERAL OVERVIEW WHAT THE PROGRAM DOES. EACH SUBROUTINE 
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WILL HAVE INTERNAL COMMENTS AND A BEGINNING SECTION TO DEFINE THE 


VARIABLES USED. 


e 

a AAR RR AK AAR RAPA ARR RRR CIR TIO ICR RICA IIR AR RII 
Ec READ(5,*) NKS,NA,NB,NK,NIS,NI,R,CL,ZCYL1,ZCYL2,FPAND,NJS,NJ,HSZ, 

c 


cL TRE 

PI = 4.0 * ATAN(1.0) 
NKS = 3 
NA = 8 
NB = 26 
NK = 31 
NIS = 2 
NI = 22 
R = 9.6 
CL = 27.4 
ZevLi = 9.6 
ZEYLZ = 37.0 
FPAND = 5 
DIAFP = 2. 
NJS = 1 

= 13. 
Moa = 25.3 
IFIRE = 1 
RF = DIAFP/2. 
MI = NI - NIS 
MJ = NJ - NJS 
MK = NK - NKS 
MKN Naga NKs 


MKS = NK = NB 


MKC = MK - MKN - MKS 

WRITE(6,*) 'NKS =', NKS, 'NA =!,NA,'NB =!,NB, 
WRITE(6,*) 'NIS =', NIS, 'NI =',NI, 'NJS =',NJS, 
WRITE(6,* 

WRITE(6,*) 'MI =',MI,'MK =',MK,'MKN =',MKN,'MKS =! ,MKS 
WRITE(6,*) 'MKC =' MKC, 'MJ =',MJ 

WRITE(6,* 

CALL GRID 

CALL WALL 

MREGN1 = 0 

IREGN1 = MI * MKN 

MREGN2 = IREGN1 +1 

IREGN2 = MI * (na + MKC) 

MREGN3 = IREGN2 + 1 

IREGN3 = MI aK 

CALL VIEW 

CALL HEAT 


C THE FOLLOWING DO LOOP ADDS UP THE VIEW FACTORS FROM 
Memetnerk o/9 CELLS. THIS IS A CHECK OF THE ENCLOSURE PROPERTY FOR THE 


C TOTAL SUM SHOULD EQUAL ONE. 


DO 46 I = 1,579 
SUM = 0.0 
Rerageg = 1.579 
SUM = SUM + VFMXR(I,J) 
47 CONTINUE 
WRITE(6,*) I, 'SUM TOTAL = ' , SUM 
46 CONTINUE 
CALL AREAL 
CALL INVER 
STOP 
END 


SUBROUTINE GRID 


COMMON/BL1/ NIS,NI,NKS,NK,NA,NB,MI,MK,MKN ,MKS ,MKC,CL,DTHETA, 


peberm Demis 041,022,023 ,21,R,P2,ZCYL1 ,ZCYL2 


COMMON/BL2/ PHI(33) , THETA(2:21,33),Z(2:21,33),AREA(10),AREAC 
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TO ALL THE 


* 
x 


COMMON/BL3/ MREGN1 ,MREGN2,MREGN3, IREGN1, IREGN2, IREGN3,KSM1,KSN2, 
& KSMS (Kote, Kelsey noite 


COMMON/BL47" VEHRR(579 , 579) DEE Zoey eee 


COMMON/BL5/WVENN(2:21,3:7,2:21,3:7) ,WVFSS(2:21,26:30,2:21,26:30), 
& WVFSN(2:21,26:30,2:21,3:7) ,NWVFNC(2:21,3:7,2:2 5 
& WVFCS(2:21, 8: 25,3721, 26:30), WWESC(2:21,26:30,2:21,8:25), 
& WVFNS(2:21,3:7,2:21,26: 30), WVFCN(2:21,8:25,2:21,3:7), 
BHVECC(2221 8:25. 2:21 3:25) 


COMMON/BL7/ NJS,NJ,MJ,HSZ,FPAND,HSANG(2,12),Y(2,12) ,HSY, DIAFP, 
SUN NEte 34 5.5 3 vesee ee eae ae VECHtS (27 6105 ae 
&VFNSH(2:21,3:7,2,12),VFSSH(2:21,26:30,/2,12) > ViCh (2.21 ee 


COMMON /BLK8/VFMXC (579, Toto ee 31399 


& CONSRA, NHSZ,AR 279) bt 
KRAKKAKRARKARAAKAAKARAKK vee! KK ERIE CELT PHONUUU ETT 


DTHETA = DELTA THETA (I DIRECTION) * 
DPHIN = DELTA PHI NORTH SPHERE * 
DPHIS = DELTA PHI SOUTH eSERERe a 
Ze) = Z ARRAY TO ASSIGN A Z LOCATION FOR EVERY CELL* 
THETA(I, K) = THETA ARRAY TO ASSIGN A THETA LOCATION * 
PHI(I) = ASSIGNS A PHI VALUE FOR THE NODAL POINTag * 

THE SPHERES VICE THE CELESEeu * 
AREA(I) = AN AREA ELEMENT FOR THE CELLS ON THE SPHERE % 


NOTE FOR A GIVEN 2 LOCATION ALL THE CELLS HAD™ 
THE SAME AREA. THEREFORE ONLY 10 LOGS eaam 
SITES HAD TO BE ASSIGNED. 
AREAC = THE AREA OF THE CYLINDER CELLS. DUE TORS 
UNIFORM GRID ON THE TANK WALLS, THE CELES 
THE SAME SIZE. 
USED TO ASSURE THAT THE ANGLE AT NK WAS 180 
DEGREES AND THEREFORE THE COS(180) = -ie 
THERE WAS SOME PROBLEM DETECTED EARLY i 
TESTING THAT WOULD MAKE THIS VALUE POSER 


DUE TO COMPUTER ROUNDEOFE 
RREKAAKKKARKRKKRKAKKKAKAKKAKRKAKKKAKKAKAKKKKKARAKKAKAKKAKKAKAAKKRKKRRAKAKKKKKKAKKKRKAAKK 


DEFINE THES GRID] > vsuE 
DIHELA=.(- 2 0esn ie ete 


ANGLE 


CY A AHH A OO OO 
AA AA AM a A 


WRITE(6,*) 'DTHETA = ', DTHETA 
C FOR THE SPHERICAL END CAPS, PHI IS 90 DEGREES OR Pl/Z DiViIDEDeE 
c THE NUMBER OF DIVISIONS PER END CAP 

DPHIN = PI / oa * MKN 

DEMS = bo 27077 TKS 

Pee = 'DPHIN =! ,DPHIN, 'DPHIS =") Deiss 

WR TH CG. 


PHI IS FOUND FOR EACH NODAL POINT. THIS IS NOT THE PHI FOR 
MIDPOINT OF THE @CErE: 


C PHI FOR THE NORTH SPHERE IS FROM 0O TO PI/2 RADIANS 

PHI(NKS) = 0.0 
BRE ee 550) ts ae en ee 

50 FORMAT(1X, 10X,A,10X,A, 
DO 1 I = NKSt1, NA 

PHI(I) = PHL(T- 1) + DPHIN 
WREDECG 55). le EE) 
1 CONTINUE 


C PHI FOR THE SOUTH SPHERE IS FROM PI/2 TO PI RADIANS 
PHI (NB) | =p een 
DO 2 I = NBtl, NK 
OHI (I) = PHI(I- 1) + DPHIS 
WRITE(6,55) 2 Seo) 
2 CONTINUE 
55 FORMAT(1X,7X,13,10X,F10.5) 


DEFINE THE LOCATION OF EACH CELL IN TERMS OF THETAs AUDe2 se eee 
A MATRIX FOR EACH. THE LOCATION IS IN THE MIDDLE OF EACH GEEas 
THE CELL AREAS ARE THE SAME FOR EACH ELEMENT ON THE CYLINDER AND 
STHTLAR FOR EACH PHI ANGLE OF THE SPHERE. SET UP A COLUMN JeGuas 


AQ 


AANA 
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ANAANAANANA NAN 


a on 


qa 


ANG 


AANA 


FOR THE AREA OF EACH CELL TYPE. 


START AT THE NORTH SPHERE WITH Zl = 0. FIND DELTAZ. ( WILL VARY 
Bele ee oe dene) elon THE MIDPOINT) THIS IS THE LOCATION FOR THE 
FIRST CELL. ADD THE REMAINING DELTAZ (E2Z/ 2) 2HiS LOCATION IS NOW 
AT THE NEAT NODAL POINT. GO THROUGH THE LOOP AGAIN TO GET A NEW 
DELTAZ AND CONTINUE WITH THE PROCESS. NOTE THE NODAL POINT NUMBER 
PoGheot Loe leermo lO THE RIGHT OCF Tf GOING FROM NORTH TO SOUTH. 
fitcmioerOnelntmeemOLREehION. THR EAST CELL HAS THE NUMBER NK-1. 
NA REPRESENTS A CELL ON THE CYLINDER, NB-CELL ON THE SOUTH SPHERE 


Zl = 0.0 
KT = 0 
ene Como ys Kk THETA 7 
3 K = So Nike i 


ENDIF 


KT 
FIND THE AREA AND Z LOCATION FOR THE NORTH SPHERE 
ee 


(K .LT. NA ) THEN 
DZ1 = R * ( COS(PHI(K)) - COS(FHI(K+1)) ) 
AREA(K-NKS+1) = (DZ1* 2.*Pi*R)/ M 
Z(I,K) = Z1 + Cane 5} 
Z1 = Z(I,K) + (DZ1*0.5 


FIND THE Z LOCATION FOR THE CYLINDER 


ELSEsie sn .GE. NA .AND. K .LT. NB) THEN 
BZ2-= CL / MKC 
Ze eet beste 
ZL = 9420 iw) et «22° 0.5 

ELSE 


FIND THE AREA AND Z LOCATION FOR THE SOUTH SPHERE 
E 


.EQ. NK-1 ) THEN 


IF (K 
ENSURES THAT THE ANGLE AT ( (NK- » +1),IE NK, EQUALS 180 DEGREES 


ANGLE = <1. 
ELSE 
ANGLE = COS(PHI(K+1)) 
ENDIF 


DZ3 = R*( COS (PHI (K) ) - ANGLE) 
AREA(K+MKN+1-NB) = (DZ3*2.0*PI*R)/ MI 
2(I1,K) = Zl + (z3%0. oo 
Glee kot 4 D230. 5 

ENDIF 


75 CONTINUE 
MooLGNS A THETA VALUE FOR EVERY CELL. 


5 


THETA(I,K) = . NIS+1)*DTHETA - (0.5 * DTHETA) 
WRITE(6,65) I,K,THETA(I,K),Z(I,K) 
CONTINUE 


60 Eon ee 9X,A,5X,A,7X,A,10K,A 


65 FORMAT 


A,/) 
ian aeoKeS,, 4 F10.5,6X,F10.5) 


THE AREA VECTOR IS NUMBERED 1-MKN FOR THE NORTH SPHERE AND MKN+1 
BOeiKNeMRS FOR THE SOUTH SPHERE. THE AREA FOR THE CYLINDER CELL 
IS CONSTANT AND CAN BE CALCULATED OUTSIDE THE DO LOOP. 


AREAC = R*DZ2*DTHETA 
WRITE (6,%*) 'AREAC =e 
DO 70 I =1 
WRITE(6, 45" I, AREA(I) 
CONTINUE 
RETURN 
END 


SUBROUTINE WALL 
COMMON/BL1/ NIS,NI,NKS,NK,NA,NB,MI,MK,MKN,MKS ,MKC,CL,DTHETA, 
SeDrtiIN, DPHIS, DZ1, DZz2, DZ3 oe R, PL, ZCYL1, ZeunZ 


SOUMON) BIEZ/ PHI (33), THETA(2:21,33),2(2:21,33) ,AREA(10) ,AREAC 
COMMON/BL3/ MREGN1,MREGN2 ,MREGN3, IREGN1, IREGN2, IREGN3,KSM1,KSM2, 


14] 


& KSM3,KSM4,KSH5,KSIM6 
COMMON/BL4/ VFMXR(579 ,579) , DERY@2yemz ke 


COMMON/BLS/WVFNN(2:21, a 7,2:21,33:7) , WVESS (Zee 
& WV bolic =e ao SOF ee Zail a0 WVENC (2: 215352) 0ce 21 Ge 

& WVEES( Za ee :21,26:30 , WVFSC(2: oi 26: SOF Dee 
& WVENS(2:21, a r 21, 26: :30), WVFCN(2:21, @22oee 2 367 
S&WVFCC(2:21, 8: 58’ 2221 Ge :25) 


COMMON/BL7/ NJS,NJ,MJ,HSZ,FPAND,HSANG(2,12 
EVENSH 3201 929,310) weasnts 24 9608002 12 





hae 
ee 


eS 


&VEFNSH(2:21,3:7,2,12) ,VFSSH(2Z +215 25 ore 
COMMON/BLKS/VEMXC( S79 57207 VETTE! S728 


VFCH 





& CONSRA, NHSZ AR(579) « "EM(579 

KRAEKKKAKEKRAKRRARKKERKEEE KRERKEKRK Be Re chekkkRKA RAAT 
* WVENN = WALL VIEW FACTOR NORTH SPHERE TO NORTH SPHERE x 
* WVENS = WALL VIEW FACTOR NORTH SPHERE TO SOUTH SPHERE = 
x WVFSN = WALL VIEW FACTOR SOUTH SPHERE TO NORTH SPHERE x 
* WVFESS = WALL VIEW FACTOR SOUTH SPHERE TO SOUTH SPHEs * 
x WVENC = WALL VIEW FACTOR NORTH SPHERE TO CYLINDER * 
* WVECN = WALL VIEW FACTOR CYLINDER TO NORTH SPHERE * 
* WVESC = WALL VIEW FACTOR SOUTH SPHERE TO CYLINDER * 
* WVFCS = WALL VIEW FACTOR CYLINDER TO SOUTH SPRFRE * 
‘ WVECC = WALL VIEW FACTOR CYLINDER TO CYLINDER i 
* PHLE = PHI ANGLE TO MIDPOINT OF THE CELL ON A SPHER@Gee x 
* ELEMENT, ONE DENOTES ORIGINATING CELL x 
* PHEZ = PHI ANGLE OF THE CELL THE RADIATION IS GOING TO * 
* RHO1 = PROJECTED DISTANCE ON THE XY PLANE (R*SIN(PHI1) ) * 
* RHOZ = PROJECTED DISTANCE OF THE CELL RADIATION IS GOING TO* 
* HL AZ = DISTANCE ALONG THE Z@ AAIS OF THE SPHERICAL GE Ree x 
x R * COS(PHI1) I=ORIGINATING , 2 = RECEIVING x 
* THETAD = THE DIFFERENCE BETWEEN THE THETA ANGLES OF THE * 
* TWO CELLS IN QUEST TOT % 
* DAREAI] = THE AREA OF THE ORIGINATING CELL x 
x DAREAZ - THE AREA OF THE RECEIVING eeEEeE x 
* ASO = "A" SQUARE, THIS IS A SQUARED DISTANCE OBTAINED BY * 
x THE LAW OF COSINES. THIS DISTANCE IS REOULTRSi=ERS * 
* FIND THE DISTANCE BETWEEN THE TWO CELLS. REFER TO * 
* THESIS TEXT FIGURES TO UNDERSTAND THE DERIVATIONS * 
x BSOQ = "B" SQUARE, AGAIN ANOTHER DISTANCE REQUIRED TO FIND * 
* THE DISTANCE BETWEEN THES tvogesers * 
x RSQ = Re Ae THE SQUARE OF THE DISTANCE BETWEEN THE * 
* TWO CELES * 
* RD = THE ACTUAL DISTANCE BETWEEN THE TWORGEEES * 

* CBETAL = THE COSINE OF THE ANGLE BETWEEN THE NORMAL OF THE * 
a ORIGINATING CELL AND THE LINE RD % 
* CBETA2 = THE COSINE OF THE ANGLE BEWTEEN THE NORMAL OF THE * 
x RECEIVING CELL AND THE LINE RD * 
* ZETALS = ZETA ONE SQUARE, ANOTHER DISTANCE REQUIRED TO FIND * 
* CBETAL, REFER TO THES!s ie * 
: ZETA2S = ZETA TWO SQUARE, USED TO FIND CBETA2 ‘ 
x THE FOLLOWING VARIABLES ARE USED TO DETERMINE IF THE LINE BETWEEN * 
THE CELLS INTERSECTS THE FIRE a 
* “L,YI,ZI = THE X,Y, AND Z LOCATION OF THE ORIGINATING G2eE x 
* AJ, ade a2aJ = THE X,Y, AND Z@ LOCATION OF THE RECEIV lieaee re * 
* AD = THE X DISTANCE BETWEEN THE TWO (XJ-XI x 
* YD = THE Y DISTANCE BETWEEN Gee TiCr oe x 
* ZD = THE Z DISTANCE BETWEEN THE TWO (ZJ-ZI x 
* AL ce = CORFICIENTS OF THE ZOUSETeUE * 
* A*T**2 + BAT + C = 0. THE DETERMINATION OF THESE * 
x COEFICIENTS IS DISCUSSED IN DHEViHESsi. x 
* QUAD = THE TERMS IN A QUADRATIC SOLUTION THAT WOULD BE x 
* UNDER THE SQUARE ROOT SIGN x 
* Pl aZ = SOLUTIONS TO THE QUADRATIC SOLUTION x 
* SL ee = Y DISTANCES THAT CAN BE RELATED TO THE LOCATION OF * 
* THE FIRE * 
* FIREY > THE NEGATIVE Y DISTANCE THAT REPRESENTS WHERE THE * 
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* 


eo RRR H AA RATA RHA TEARAREREREAARARARARA RIAA IKI 
C NOTE ORIGINATING CELL IS (I,K), 


BoelRe fan Is LOCATED. * 


RECEIVING CELL IS (II,KK) 


CRAKAKKAKRAAKKAARKRAAAKKAKAKRAKKARKKRAAKKAA KAKA AKA AKAAAAARKA AKA RARR RRR RAKKRRAKRRKK 


é WVFNN WALL VIEW FACTOR FROM NORTH SPHERE TO NORTH SPHERE 
DO 100 I = NIS,NI-1 
DO 100 K = NKS,NA-1 
DO 100 II = NIS, NI-1 
DO 100 KK = NKS,NA-1 
PE (leo) uA DEere EQ. KK) THEN 
VENNCT, en KK) = 
SE 
PHI1 = i + .5*DPHIN 
PHI2 = PHI(KK) + .5*DPHIN 
RHOl = R * SIN a) 
RHO2 = R * SIN (PHI2 
Hl = R * COS(PHI1 
H2 = R * COS(PHI2 
THETAD = ABS( THETA(I,K) - THETA(II,KK)) 
IF (THETAD.GT. PI) THETAD = 2*PI - THETAD 
DAREA1 = ek NKS+1 ) 
DAREA2 = AREA(KK-NKS+1) 
ASQ = RHO1**2 + RHO2**2 - 2.0*RHO1*RHO2*COS(THETAD) 
BSO = (H1-H2)**2 
RSO = ASO + BSO 
RD = SOQRT( RSQ) 
CBETA1 = RD/(2.0*R 
CBETA2 = RD/(2.0%R 
enV ENN(L, .K,II,KK) = (CBETA1*CBETA2)/(PI*RSQ) * DAREA2 
i 
100 CONTINUE 
WRITE (6,*) 


CRAKKKKKKKKKAKAKKKAKKKAKAKKAKKKKAKKAAKKRKKAKAKRAKAKKKARKRKKAKARKRKRAKRAKKKARKRARKKKRAKRARA 


c WVFSS WALL VIEW FACTOR FROM SOUTH SPHERE TO SOUTH SPHERE 
DO 200 I = NIS,NI-1 
DO 200 K = NB,NK-1 
DO 200 II = NIS, NI-1l 
DO 200 KK = NB,NK-1 
IF (I .EQ. II .AND. K FQ. KK) THEN 
oflVFSS(I, \K,II,KK) = 
PHI1 = PI - Ot + .5*DPHIS) 
PHI2 = PI - (PHI(KK) + .5*DPHIS) 
RHOl = R * SIN oF: 
RHO2 = R * SIN (PHI2 
Hl = R * COS(PHI1 
H2 = R * COS(PHI2 
AD = ABS( THETA(I,K) - THETA(II,KK)) 


Te 
ve (THETAD Cilwes) 


DAREAI 


( 


CBETAI 

CBETA2 

WWESS(I, 
I 


END 
200 CONTINUE 
WRITE (6 


C WVFNS WALL 


DO 300 I = 
DO 300 K = 
pe, 300 11 


DAREAZ 
= R 


THETAD 
See etl NB) 
AREA( KK+MKNt+1-NB 


) 
Oe aeRO ae ee ORO ~RHOZ~COs (THETAD) 
Hi-Haye 22 


2*PI = THETAD 


ASO + BS 
SORT (RSQ 


= RD/(2.0*R 
= RD/(2. O*R 


K,II,KK) = (CBETA1*CBETA2)/(PI*RSQ) * DAREA2 


ae 


CAKRKAAKAKKAKKKKKKAKKKRKRKRKKKKKRKKKARKKKKKRAKKKAKKRKAKAKKKRKAAKKAKAKKKKAKKAKKKAKAKKAKAKKAAKKK 


VIEW FACTOR FROM NORTH SPHERE TO SOUTH SPHERE 


NS TNE! 
_NKS, NA=1 
= NIS, NI-1 
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DO 300 KK = NB,NK-1 
F (1° 80. Tle cnn: K EQ. KK) THEN 
WVFNS(I,K,II,KK) = 
SE 


PHI1 = PHI(K) + .5*DPHIN 

PHI2 = PI - (PHI (KK) + .5*DPHIS) 

RHO1l = R * SIN ee 

RHO2 = R * SIN (PHI2 

Hl = R * COS(PHI1 

H2 = R * COS(PHI2 

THETAD = ABS( THETA(I,K) - THETA(II,KK)) 


MS (THETAD . GL. PL) THETAD = 2*PI - THETAD 
DAREAI — NKS+1 ) 
DAREA2 = AREA KRFKNE Lo NB ) 


ASO = RHOLE®? + RHO2**2 =- 2. O*RHO1*RHO2*COS (THETAD ) 
BSO = (CL + Hl + H2)**2 

RSO = ASO + BSO 

RD = SORT(RSQ 

ZETALS = RHO2**2 + (CL + H2)**2 

ZETA2S = RHO1**2 + (CL + H1)**2 

CBETA]L = (R**2 + Rov = see / ee 

CBETA2 = 2.0*R*R 


R**2 + aay = Zenad 
WVFNS(I,K,II,KK) CBETAL*CBETA3) / (PI*RSO) * DAREA2 


ENDER 
CAARKAAKAKAKKAKAKAKAAKAKAAKAKAKKAKKARAAAKKAKKAKAAAKKAKKAKKAAKAKAAKAAKAKARAKAKKAAKARKKAK 


C THE FOLLOWING SECTION IS ONLY INCLUDED IF THE FIRE 2S CONSTDEREm 
C IN THAT CASE,IFIRE (INCLUDED FIRE) WOULD EQUAL 1 AND THE CHECK TO 


C SEE IF THE VIEW FACTOR INTERSECTS THE FIRE WOULD BE ACCOMP Elsen 
CAHAKAAKAKAKRAAKAAKKAKARKARKKKKAAKAAKKARAAKKAKAKAAKAKKAKKAAKKKAKAKAKKKRAAKKKKAKK 


IF (IFIRE .EQ. 0) GO TO 350 
IF(WVFNS(I,K,II,KK) .EQ. 0.) GO TO 350 
FIREY = -R + (R/MJ * FPAND) 


RF = DIAFP / 2.0 
ao = aren pet 2 K) 
YI = RHOL*SIN(THETA(I,K 
ZI = Z(1,4) 
XJ = RO ee 
YJ = RHO1*SIN(THETA(II,KK 
Z5 = Z(II,KK) 
MD =) = 
YD = YJ - YI 
Ze =e ee 
A = XD*A2 + ZD*X2 
B = 2.0 *(ZI - HSZ)*ZD + 2.0*XI*XD 
C= XIAt2 4 (20 ica)enc eo haaae 
QUAD = B**2 - 4.*A*C 
IF ( QUAD .LT. 0.) THEN 
GO TO 350 
ELSE 
= : B + SQRT(9UaD} }/(2 "a 
T2 = (-B ~ SQRT(QUAD))/(2.%*A 
Vil eee 3 - YI) + YI 
Y2 = T2*(YJ - YI) + YI 


ENCIF 
IF ( Yl .GT. FIREY (AND: Yi (Li eRe, 
WVENS (I, hoe KK) = 0.0 
ELSE ah a2 CT. FIREY Se Y2 .LT. Roeea 
WVENS (I,K , LL; KKj a= 070 
ENDIF 


C END OF MODIFICATION TO WALL VIEW FACTORS WHEN THE FIRE IS INCLUDED 
CAKAAKAAKAAKKKAAKKKKAKKAKAKKAARKAAKAKKKKKKKKKARKAAKAKAAKKKAKKAKAAKAKAKKAKAKKKK 


So0 WVFSN(II,KK,I,K) = WVFNS(I,K,II,KK) * DAREA1/ DAREA2 
300 CONTINUE 
WRITE(6,~) 
CAKKAKAAKAAKAKAKAAKAKAAKAKARAKAAKKAAKKKAKAKAKAKKA AAKKAAKAKKAKKAKKAKAAKAKAAKKKK 
C WVFNC WALL VIEW FACTOR FROM NORTH SPHERE TO CYLINDER 


DO 400 I = NIS,NI-1 
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DO 400 K = NKS,NA-1 
DO 400 II = NIS, NI-1 
DO 400 KK = NA,NB-1 
IF (I .EQ. IT .AND. K EQ. KK) THEN 
WVENC(I,K,II,KK) = 
SE 


, 


PHI1 = PHI(K) + .5*DPHIN 
RHO1 = R * SIN (PH ia) 
ail = ae K 


a iiglon KK) 

THETAD = ABS ( THETA(I,K) - THETA(II,KK) ) 
Ce DAD Gh a bay THETAD = 2X%PI - THETAD 
DAREA1 = AREA(K- NKS+1) 

DAREAZ2 AREAC 

ASQ = RHOL**2 + R**2 - 2.0*RHO1*R*COS (THETAD ) 


BSO = (Z1 -Z2)**2 

RSQ = ASQ + BSO 

RD = 5 RT (RSQ) 

ZETA1S = BSQ + RHO1**2 

ZETA2S = R**¥2 + (22 -ZCYL1)**2 
CBETA1 = 


R*X2 + RSO - ZETAIS / oe 
CBETA2 RRA2 + ae ETA2S)/ (2.0*R*RD 
WVFNC(I,K,II,KK) CBETAI*CBETAS) / (PI*RSO) * DAREA2 


ENDIF 
CRAAKAKAKKARKKKKKKKAKKKRKKAKKKKAKKAKKKKKAKRKKKRKKAKRKRKRKKRARKKKAKKAKAKKRAAAAKKAAKK 


C THE FOLLOWING SECTION IS ONLY INCLUDED IF THE FIRE IS CONSIDERED. 
C IN THAT CASE,IFIRE (INCLUDED FIRE) WOULD EQUAL 1 AND THE CHECK TO 


C SEE IF THE VIEW FACTOR INTERSECTS THE FIRE WOULD BE ACCOMPLISHED. 
CAAKKKAKAKKAKKAKAKAKK RR AKA RK RK KKK KKKKKKK AAR RAK AK RAK AKKAKK RAK KR RAR RAKAKAKK 


IF (IFIRE .EQ. 0) GO ie 450 


IF (WVFNC(I,K,II,KK) 0.) GO TO 450 
FIREY = -R + (R/MJ * FPAND) 
RF = DIAFP / 2.0 
XI = RHO COS (THETA (T. a 
ee = RHO1*SIN(THETA(I,K 
XJ =R Beene ee 
YJ = R*SIN(THETA(II,KK 
ZJ = Z(1I,KK 
XD = = 
p= YI = VI 
ZD = ZJ - ZI 
A = XD**2 + ZD**2 
Bee= 2-0 “(ZI = Be eee 2.0*XI*XD 
C = XI**2 ‘+ ea - HSZ)**2 - RF**2 
QUAD = Bx*2 - 4.*A*C 
Tez SuaD eT. Oe THEN 
GO TO 450 
ELSE 
Tl = t= B + S0RT(0UaD}}/ S i 
T2 = (-B -.SORT(QUAD xD 
Yl = met - YI) + YI 
= T2*(Y¥J - YI) + YI 
ENDIF 


IF ( Yl .GT. FIREY .AND. v1 .LT. R ) THEN 
WVFNC(I,K,I1,KK) = 0.0 

ELSE IF( Y2..GT. FIREY -aND, Y2 .LT. R) THEN 
WVFNC(I,K,II,KK) = 0.0 

ENDIF 


C END OF MODIFICATION TO WALL VIEW FACTORS WHEN THE FIRE IS INCLUDED 
Se ese CT CT 
C : /X)I,K,1II,KK,WVENC(L, Ky, II, KK) 
450 WVFCN(II,KK,1,K) = WVENC(I,K,II,KK) * DAREA1/ DAREA2 
400 CONTINUE. 
WRITE (6,%) 
CARKKKAKKRAKKKKKKKKKKKKRKRKKAKKRKKKAKAKKAKKAKKKAKRKKRRKKRRAKRKKARKAKRKAKRAKRKEKKKAAKRKAKRKAKKARKA 
C WVFSC WALL VIEW FACTOR FROM SOUTH SPHERE TO CYLINDER 
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DO 
DO 
DO 
DO 
luis 


300 T= NES =1 
500 K = NB,NK-1 
500 II Nom Nl=1 


500 KK = NA NB-1 


(ie. 60. of beeen De K ae KK) THEN 


WVFSC(I,K,II KK) = 
SE 


PHI1 = PI - (PHI(K) + .S*DPHIN) 
RHOL = R * SIN (PHIL) 

Hl = R * COS(PHI1) 

Za BT he 


Z2 = Zi 

THETAD = ABS( THETA(I,K) - THETA(II,KK)) 
(THETAD.GT. PI) THETAD = 2*PI - THETAD 

DAREA IL = AREA(K+MKN+1-NB) 

DAREA2 = AREAC 

ASO = RHO1**2 + R**2 - 2.0*RHO1*R*COS(THETAD) 
= (Zeoze ee 

RSO = ASO + BS 

RD = SORT(RSO 


ZETAIS = BSQ : RHO1**2 

ZETA2S = R**2 + (22 -ZCYL2)**2 

CBETAL = (R**2 + RSQ - ZETA1S)/ ee 
CEEtA2 = 2.0*R*RD 


Ran + R50 = ZETAZoo 
WVFSC(I,K,II,KK) CBETAI*CBETAZ)/ (PI“RSQO) 3 * DARE 


ENDIF 
CAKKKKKKKKAKKKKKKKKAKKKKKKAKEKEKKEKERKAKKKAKAKKKKRKAKKAKKKKKEKRERERERERKKR RE KE 


C THE FOLLOWING SECTION IS ONLY INCLUDED IF THE FIRE IS CONSITDEREGe 
C IN THAT CASE,IFIRE (INCLUDED FIRE) WOULD EQUAL 1 AND THE CHECK TO 


C SEE IF THE VIEW FACTOR INTERSECTS THE FIRE WOULD BE ACCOMPLISHED. 
CRARKARRAAKAR AKA RRARAK KER RKAKRRAKKRAKRAERKKAKK RRR RRR KKK AKRRREKRERERRRRRERK 


TE (TFIRE (EO sa) cor mosss0 
IF(WVFSC(I,K,II,KK) .EQ. 0.) GO TO 550 
FIREY = -R + (R/MJ * FPAND) 


= Diare / eae 

a eR aad cast kK} 

= RHOL*SIN(THETA(I,K 

= Zana 

= tae at 

= R*SIN(THETA(II,KK 

= Z(II,KK) 

= XJ - XI 

= Veo ov 

=ZJ - ZI 

= XD**2 + ZD**2 

= 2.0 *(ZI - HSZ)*ZD + 2.0*XI*XD 
= XI**2 + (ZI - Sa )*"2 ="Raanz 
D = B*X2 - 4, *A*C 


LE ( QUADM Die Ons Dae 
GO TO 550 


ELSE 
pil = (- BR + Sone Suet (a 
T2 = (-B - SORT(QUAD 2.*A 
Yl = eet - i} + + YI 
Y2 = T2*(YJ - YI) + YI 

ENDIF 


IF ( Yl .Gr Finny eo ee Lo. R ) ae 


Ete 


WVFSC(I,K,II,KK) = 
TF( Yo .Gh. nine AND, Y2 .LT. R) THEN 
WVFSC(I,K,II,KK) = 0.0 


ENDIF 
C END OF MODIFICATION TO WALL VIEW FACTORS WHEN THE FIRE IS INCLUDED 
CRAKKKKAAKAKKKRARRKKKAKKKKKKKKKRRKKERKAKAKKKKKAKKRKRARKERARKERERERERERERKERKKKRKE 


So0 WVFCS(II,KK,I,K) = WVFSC(I,K,II,KK) * DAREA1/ DAREA2 
500 CONTINUE 


WRITE (6,*) 


CAKRKKRKRRKKKRKRKKRKKRKRKKKKRRKEKKKRKEKRRKRRKKRKRRRKKRKKKKRKKRRRRKRERKRRKRKRERKEKRKRERKRREKKRRRKKKE 
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c WVFCC WALL VIEW FACTOR FROM CYLINDER TO CYLINDER 


DO 600 I = NIS,NI-1 

DO 600 K = NA,NB-1 

DO 600 II = NIS, NI-1 

DO 600 KK = NA,NB-1 

feeb cO. Il .AND, kK EQ. KK) THEN 
WVFCC(I,K,II,KK) = 
E 


a TASS 
BO Va II RK) 
THETAD = ABS( THETA(I,K) - _THETA(II, KK)) 
IF (THETAD GT. PI) THETAD = 2*PI - THETAD 
ASQ = 2 5 FRERZN (1 he COS (THETAD) ) 
= (Z1 -Z2) 
RSQ = ASO + BS 
RD = SORT(RSO 


ZETAIS = BSQ + R**2 
CBETA1 = (R**2 + RSQ - ZETAIS)/ (2.0*R*RD) 
GBErA? = GBETAL 


WVFCC(I,K,II,KK) = (CBETA1*CBETA2)/(PI*RSQ) * AREAC 


ENDIF 
CAKKKAKKAKKAAKKKKERERKAKKKKKRKRERRAKKAAKKRERKERERRKKRKAKRRRERRRAKKAKKKKKAKK 


meee FOLLOWING SECTION IS ONLY INCLUDED IF THE FIRE IS CONSIDERED. 
C IN THAT CASE,IFIRE (INCLUDED FIRE) WOULD EQUAL 1 AND THE CHECK TO 


Seeeer isc THE VIEW PACTOR INTERSECIS THE FIRE WOULD BE ACCOMPLISHED. 
CRKAKKKAKAKRKKAKKKAKRKAKKKAKKK AK RKKKAKEKAAKKRAKKAKKKK RRR AKRAKKRRERKRRKKAKKK KK 


ie Cen rRe .8Oan0) GO TO 650 
Pe eee LK Il, KK) .EQO. 0.) GO TO 650 
FIREY = -R + (R/MI x FPAND) 


RF = DIAFP / 2.0 
a R°COS (THETA(T, SK 
at = R*SIN(THETA(I,K 
KJ = R ae aith, on 
YJ = R*SIN(THETA(II,KK 
ZJ = Z(II,KK) 
AD = KJ - XI 
YD = YJ - YI 
2D = ZJ - ZI 
A = XD**2 + ZD**2 
B = 2.0 *(ZI - HSZ)*ZD + 2.0*XI*XD 
C = XI*X*2 + (ZI - 4HSZ)**2 - RF**2 
QUAD = B**2 - 4.*A*C 
IF ( QUAD .LT. 0.) THEN 
GO TO 650 
ELSE 
Tl = » B + eeneiae UAD DY 4 ie 
T2 = (-B - SORT AD 
via a = oe + YI 
Y2 = T2*(YJ - YI) + YI 
ENDIF 


Meet Yi .GT. FIREY .AND. ¥1 .LT. R ) THEN 
WVFCC(I,K,II,KK) = 0.0 

ELSE IF( Y2 .GT. FIREY ral, Y2 .LT. R) THEN 
WVFCC(I,K,II,KK) = 0.0 

ENDIF 


C END OF MODIFICATION TO WALL VIEW FACTORS WHEN THE FIRE IS INCLUDED 
CAAKKKAKAAKKARKKAKKKARKKRKEKKAKKKEKEKRAKRERKRAAKARKKAKRRERRKRAKKRRKAKAKERRRKKKR RAK 
650 CONTINUE 
600 CONTINUE 
WRITE (o>) 
RETURN 
END 


SUBROUTINE VIEW 
COMMON/BL1/ NIS,NI,NKS,NK,NA,NB,MI,MK,MKN,MKS,MKC,CL,DTHETA, 
Pe EWN Phils, UGly,o2,D4s,41, np, ocrL1,ZCYLZ 
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COMMON/BL2/ PHI(33) ,THETA(2:21,33),Z(2:21,33) /AREA( TO) eee 


COMMON/BL3/ MREGN1,MREGN2,MREGN3,IREGN1, IREGN2, IREGN3,KSM1,KSM2, 
& KSM3S,KSM4, KSiiog KSM6 


COMMON/BL4/ VFMXR(579,579) ,DELY(2,12) ,RF 


COMMON/BL5/WVENN(2:21, 3 7,2:21,3:7),WVFSS(2:21, 26 : 30,2:21,26:30), 
& WVFSN(2:21,26:30,2:21,3:7) ,WVFNC(2:21,3:7,2:21,8:25 
& WVFCS(2:21,8:25,2:21, 26:30), WVFSC(2:21, 26:30, 5 21,8225), 
& WVENS(2:21,3:7,2:21, 26:30) ,WVFCN(2:21,8:25,2:21,3:7), 
EBWVFCC(2:21,8:25,2:21,8:25) 


COMMON/BL7/ NJS,NJ,MJ,HSZ,FPAND,HSANG(2,12),Y(2,12),HSY,DIAFP, 
Been oto 495 1e) eece on eee eee WECHt Sia 6 a 
&VFNSH(2:21,3:7,2,12),VFSSH(2:21,26:30,2,12) ,VECH(2Z:2! 6 325eeeee 


COMMON /BLK8/VFMXC(579,579) , VEMXIN( 5799S 7a 
& CONSRA, NHSZ,AR(579), "EM(579) , DRORE 


RERKRKKKKRKRKAKRKRKRKRKRKKRKAKRKRKRKRRRKRKRKAKARAKKRRKARRRKRKAKAKRRRKRKRKRKRKARKKARKRRKKRKRKRRRRRRRKRRARKAKKK 


VFMAR = VIEW FACTOR MATRIX , VIEW FACTORS BEFORE MODIFICATION* 
THIS IS A 579X579 MATRIX FORSTHISo ws 4 

- Kstils6 = DUMMY VARIABLES USED TO NUMBER THE CELLS FROM 1-579 * 

KARKKAKAKAKKKAARKKKKAKKAKKRARKKAKAKKRKAARKRAKRARARKRAAKKKARKARRKRRKARERRARRKRKKRKAKKKKKARKK 

c SET UP VIEW FACTOR COBFFICIENT MATR blocs 

: I,K IS THE CELL NUMBER STSRTING FRGH 

c 





i1,KK IS THE CELL NUMBER VGORIG ne 
VFMAR FOR NORTH SPHERE TO NORTH SPHERE, CYLINDER, SOUTH@Sra 


KSM1 = MREGNI1 

DO’ 5K = Nhs NAge 

DO 5 i = Nis, Ni-t 
Koll] =enonl ren 
KSM2 = 1 

KSM3 = MREGNZ2 

KSM5 = MREGN3 


C VFUAR FOR NORTH SPHERE [TO NORTH SERERE 
DO 10 KK = NKS, NA-1 
DO 10 If NaS, Ul iar 
VFMXR (KSM1, KSM2) = WVFNN(I Tn) 
C WReDe ceo) KSM1, KSM2, VEMER(KS pWSEIZ ) 
KSM2 = KSM2 + 1 
10 CONTINUE 


C VFMXR FOR NORTH SPHERE TO CYLINDER 
DO 15 KK = NA, NBst 
DO; tae es NIS, he 
TS kr) = ee pit ole, : 
VETIAR CRSES pkolie WV EP Ch RK, ie 
c WRITE(6,*) KSM1, KSM3, VFMXR(KSM1 , KSN3) , VFMXR(KSM3 , KSM1) 
KSM3 = KSM3 + 1 
1S CONTINUE 


C VFMAR FOR NORTH SPHERE TOssCUtisseba: 
DO 20 KK = NB,NK-1 
DO 20 Il =Miis ee 
SS eee ee ec iat ie e 
VEMXR( KSMS Kowa WVFSN(II, KK, it 
C WRITE (6,*) KSH1 , KSMS, VFMXR(KSM1, RSIS) , VFMXR(KSM5,KSM1) 
KSMS = KSM5 + 1 
20 CONTINUE 
5 CONTINUE 


C VFMAR FOR CYLINDER TO __, CYLINDER, SOUTH @Stiaas 


KSM3 = IREGN1 
DO 25 K = NA, NB-l 
DO 2555 — Nis eni-t 


Kotis.= Kolsite 
KSM4 = MREGN2 
KSM5 = MREGN3 
C VFMAR FOR CYLINDER TO. CYNE 
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30 


35 
Zo 


45 
40 


DO 30 KK = NA, NB- 1 
DO 30 II = NIS, 
VFMXR(KSH3 , ‘ESHA ) = WVFCC(I,K,II,KK) 
WRITE(6, *) KSM3, KSM4, VFMXR (KSM3 , KSM4) 
KSM4 = KSM4 + 1 
CONTINUE 


VFMXR FOR CYLINDER TO SOUTH SPHERE 
DO 35 KK = NB, NK-1 
DO 35 II = NIS, Misa: 
Per KSHS) = WVFCS(I,K,II, a 
VFMXR(KSM5, KSM3) = WVFSC Te RK, I, 
WRITE(6,*) KSM3 , KSM5, VFMXAR KSMB , KSiis PU BMAR(KSMS5, KSM3) 
KSM5 = KSM5 + 1 
CONTINUE 
CONTINUE 


VilianerOR SOUTH SPHERE TO } peo OUTH SPHERE 


KSM5 = IREGNZ 

DO 40 K = NB, NK-1 

DO 40 I = NIS, NI-1 
oli Root el 
KSM6 MREGN3 


VFMAR FOR SOUTH SPHERE TO SOUTH SPHERE 
DO 45 KK = NB, NK-1 


Nis, Nat 

VFMXR(KSM5, KSM6) = ee Keele) 
WRITE(6,*) KSMS , KoMo, VEMAR KSMS, KSM6) 

KSM6 = KSM6 + 1 

CONTINUE 

CONTINUE 

RETURN 

END 


SUBROUTINE HEAT 
COMMON/BL1/ NIS,NI,NKS,NK,NA,NB,MI ,MK,MKN ,MKS,MKC,CL,DTHETA, 
SDE HINSBEHIS ,DZImba2 ,DZ3,21,R,P1,Z2CYL1 ,2CyYL2 


COMMON/BL2/ PHI(33),THETA(2:21,33) ,Z2(2:21,33) ,AREA(10) ,AREAC 


COMMON/BL3/ MREGN1,MREGN2 ,MREGN3 , IREGN1 , IREGN2,IREGN3 ,KSM1,KSM2, 
& KSM3 ,KSM4 ,KSM5 ,KSM6 


COMMON/BL4/ VFMXR(579,579) ,DELY(2,12),RF 


COMMON/BL5/WVENN(2:21, 3 :7,2:21,3:7) ,WVFSS(2:21,26:30,2:21,26:30), 
& WVFSN(2:21,26:30,2:21,3:7) ,WVFNC(2:21,3:7,2:21,8:25 
& WVFCS(2:21,8:25,2:21,26:30), WVFSC(2:21,26:30,2:21,8:25), 
& WVFNS(2:21,3:7,2:21,26: :30), WVFCN(2:21,8:25,2:21,3:7), 
SNVFCC(2:21,8:25,2:21,8:25) 


COMMON/BL7/ NJS,NJ,MJ,HSZ,FPAND,HSANG(2,12),¥(2,12) ,HSY,DIAFP, 
eveauilolec 2, 2-2) Sova \2,12,2:21,26:30'),VFHC eee 
eee eet eee oon 2-2), 26:50,2,12),VFCH(2:21,8:25,2,12 


COMMON/BLK8/VFMXC (579, eds , VFMXIN(579,579), 
PeCONSKAY NHSZ/AR( 579) ,EM( S79) IF IRE 


BME NOLONeASUMKZ 12), GOSUMN( 2,12) ,COSUMS(2,12) ,FN(Z,12), on ey 
& ee WZ ee oss CBS (2, eZ 2: canes ean /CBC 2 2 2a, 8 125 
eer lecme 2 coc) Anos ,12,2:21,26:30) ,ARC(2,12,2:21,8:25 
& SVFN(2, 12 SVFS(2, WD) RDM(2, ae 2: Zio: 30), DIST (560, 561:579 


RAKKKRKKKKKRRKEKKKKKRKRRRKKEKRKKRKRKRRKRKKKEKEKRRERERERERRERERREERRRERERERERKRRREREERERER 


A OF OOF OO Oe 


ae J) = HEAT SOURCE ANGLE, IT IS EITHER 90 OR 270 DEGREES 


RDM(I,J,II,KK) = ARRAY USED TO STORE THE DISTANCES BETWEEN THE FIRE 


AREAR = THE RECTANGULAR AREA OF THE FIRE 
AREACI = CIRCULAR AREA OF THE FIRE (PI * RF**2) 
CBN = HOUR TID ECEBARKAL USED TO STORE THE CBETA] VALUES 


ie, J) = PIRE GeLL Y LOCATION, ALL CELLS ABOVE THE X AXIS 
ARE POSITVE AND ALL CELLS BELOW ARE NEGATIVE 


AND THE TANK CELLS 


OO OO OO Ob OOF 


FOR THE NORTH SPHERE, WHERE THE ORIGINATING CELL IS 
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THE FIRES CEE 


THE NORTH SIDE 
ES Glas) = CORRECTION FACTOR FOR A FIRE CELL TO THe CELESm@e 
THE SOUTH SIDE 


FINDING THE VIEW FACTORS IS SIMILAR TO THE "WALL" SUBROUTINE AND 
THE VARIABLES USED HERE HAVE THE SAME MEANING AS THOSE FOUND IN 
N THAT SUBROUTINES 


Deo oR ob oR Ob RR ob Ob ROR oF ORO FOR RR FORO OO 


IKK RARER KARR RR RRR AR SAAR KRAKKARARARAK AK ARAKAKKAKK AR AK AKA KAKA RKARAA AR AAR AR 


C FIND THE LOCATION OF THE FIRE CELLS, ANGEE AND Y LOGAmre] 
DO 20051 = 2 


DO 200 J NJS_ NJ-1 
DELY(I,J) = R/MJ 
200 CONTINUE 
DOw2 lo = see 
Yl = 0.0 
DO 210 J = NJS,NJ-1 
IF ( Il EO...) oHE) 
HSANG(I,J) = PI/2.0 
Vile oy eet DELY (I, ae .0 
Yl = ¥(I,J) + DELY(I,J)/2.0 
ELSE 
HSANG(I,J) = 3.0 * PI. DEO 
Y¥(I,J) = Yl - eee /2.0 
V1 = ¥(1,d) =] DEUY( yo 
ENDIF 
210 CONTINUE 
e WRITE(*,*)'I ','J ','y ' "THETA! 
C DO 215 I = 1,2 
C DO 215 J = NJS, ,NJ~1 
C WRITE(*,*) I,J,¥(I,J), HSANG(I,J) 
C 215 CONTINUE 
RREREKRKERKEKRKRKRRRKRRKRKRKRKRKRKRKKKRKKRKRKKRKRKKKRKKKKKRRKRKKRKKRKRKKRKKKKKKKKEKRKKKRKKRKKEKRKKKKEKKE 


CRAKKKAKAKKAKAAKKKKKKRAKAKKAKKK KK KKKARERKAKKAKKARKE RRR ARK RKRAKAAKAKARKAKERKKAKKKKE 
C HEAT SOURCE VIEW FACTOR FROM THE HEAT SOURCE TO THE NORTH SPHERE 


M = NJj=! 
DOe220°1 = 1,2 
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CBS = FOUR INDICE ARRAY FOR THE SOUTH SPHERE 

Cae = FOUR INDICE ARRAY FOR THE CYLINDER 

ARN = FOUR INDICE ARRAY TO STORE THE AREA RATIO, 
AREA OF THE FIRE / AREA OF THE TANK ELEMENT. THIS IS 
FOR THE NORTH SPHERE. THE AREA OF THE FIRE Soe 
COMBINATION OF AREAR AND AREACI 

ARS = FOUR INDICE ARRAY TO STORE THE AREA RATIO FOR Sims 
SOUTH SPHERE 

ARC = FOUR INDICE ARRAY TO STORE THE AREA RATIO FOR THE 
CYLINDER 

SVFN(I,J) = ARRAY TO STORE THE SUM OF ALL THE VIEW FACTOR: 
FROM A FIRE CELL TO ALL THE CELLS ON THE NORTH S202 
OF THE TANK, CELLS 12260 

SVFS(I,J) = ARRAY TO STORE THE SUM OF ALL THE VIEW FACTORS@are 
A FIRE CELL TO ALL THE CELLS ON THE SOUTH SiDEaas 
THE TANK, CELES@ Ze ty aoc 

COSUMN(I,J) = THE ARRAY TO STORE THE SUM: (1. ~ CBETA1)*VF (HEAT 
SOURCE TO A TANK CELL ON THE NORTH SIDE) FOR A 
PARTICULAR FIRE CELL 

COSUMS(I,J) = THE ARRAY TO STORE THE SIMILIAR VALUE FOR THESBERe 
CELL TO THE SOUTH TANK CELLS 

FN(I,J) = CORRECTION FACTOR FOR A FIRE CELL TO THE CELLS ON 


HO OO HARA ahh AAD 


VFHNS = VIEW FACTOR FROM THE HEAT SOURCE TO THE NORTH SPHERE* 
VFNSH = VIEW FACTOR FROM THE NORTH SPHERE TO THE HEAT SOURCE* 
VFHSS = VIEW FACTOR FROM THE HEAT SOURCE TO THE SOUTH SPHERE* 
VFESSH = VIEW FACTOR FROM THE SOUTH SPHERE TO THE HEAT SOURCE* 
VFHC = VIEW FACTOR FROM THE HEAT SOURCE TO THE CYLINDER * 
VEC = VIEW FACTOR FROM THE CYLINDER TO THE HEAT SOURCE 


* 
* 
* 
* 
* 
* 


BCLs. fOu zat = Ml - FPAND 
J M 


® 
i 
_ 


DO 220 II = NIS, N 
DO 220 KK = NKS, NA-1l 
‘PHI(KK) + 0.5*DPHIN 


PHT1 = 

RHO1l = R * SIN (PHI1 

Jill = R * COS (PHII1 
DAREA2 = AR ee -NKS + 1) 
HSY = Y(I 


J) 
FANG = ABS(HSANG(I,J) - THETA(II,KK) ) 
IF(EANG .GT. PI)EANG = 2.0*PI - EANG 
ASO = RHO1**2 + HSY**2 - 2.0*RHO1*(ABS (HSY) )*COS (EANG) 
2DIFF = HSZ - ZCYLI1 
BQ = (ZDIFF + H1)**2 


= ASO + BSQ 
RD = pSGRE(RSO) 
RDM(I,J,II,K 


ZETA2S = eee : HSY**2 

CBETA2 = (R**2 + RSQ - ZETA2S) / (2.0 * R * RD) 

B = SORT(BSQ) 

CBETAIL = B/RD 

CBN(I,J,II,KK)=CBETA1 

VFHNS (I, J,II,KK) = ((CBETA1*CBETA2)/(PI * RSQ) ) * DAREA2 
C FIND THE AREA THAT THE TANK ELEMENT "SEES OF THE FIRE’ 

AREAR = DIAFP * DELY(I J). 

AREACI = PI *(DIAFP/2. 0) **2 

DAREA1 = AREAR*(1.-CBETA1) + AREACI*(CBETA1) 
C USE eos 

VFNSH(II,KK,I,J) = aE: J,II,KK) * DAREA1/DAREA2 

C USED TO FIND MODIFICATION FACTOR 

ARN(I,J,II KK) = DAREA1/DAREA2 

SVEN(I,J) = VFHNS(I,J,II,KK) + SVEN(I,J) 

i: J) = = (1.-CBETA1)*VFHNS(I,J, II, KK)+ 

& COSUMN(I,J 


220 CONTINUE 
CAKAKKAAAKAKAAAKAKRKKAAKKKAKAKKAAKAKKKAKKKAAAKAAAKAKAKKKARAKKKAKKKAKKKKKKK 


C HEAT SOURCE VIEW FACTOR FROM THE HEAT SOURCE TO THE SOUTH SPHERE 


M=NJ-1 
DO ae I = EO. 

F(I : 5) M = MJ - FPAND 
DO 330 I = aS M 


SVFS(I,J) =0.0 

cOsUMS (I, J) = 0.0 
DO 230 II = NIS, NI-1 
DO 230 KK = NB, NK-1 


PHI] = PI ~ (PHI(KK) + 0.5*DPHIS) 
RHO1l = R * SIN (PHI1 

Hl =—h COs scent] 

DAREA2 = AREA (KRHIRN#1- NB) 

Boy s= Y(1, 


EANG = ABS (HSANG(T, ie THETA(TI LKK) ) 

IF(EANG .GT, PI)EANG = 2.0% 

AS RHOL**2 + HSY**2 - "2, OFRHOL* (ABS (HSY) )*COS (EANG) 

ZDIFF = ZCYL2 - HSZ 

BSQ = (ZDIFF + H1)**2 

RSO = ASO + BSQ 

RD = are 

RDM(I,J,I1,KK) = RD 

ZETA2S = ZDIFFA*2 + HSY**2 

CBETA2 = (R**2 + RSQ - ZETA2S) / (2.0 * R * RD) 

B = SORT(BSQ) 

CBETAI = B/RD 

CBS(I,J,II,KK)=CBETA1 

VFHSS(I,J,1I,KK) = ((CBETAL*CBETA2)/(PI * SQ) )*DAREA2 
C FIND THE AREA THAT THE TANK ELEMENT "SEES OF THE FI 

AREAR = DIAFP * DELY(I,J) 
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AREACI PI *(DIAFP/2.0)4*2 
DAREA1 


AREAR*(1.-CBETA1) + AREACI*(CBETAL) 
C USE RECIPROSITY 


VFSSH(II,KK,I,J) = VFHSS(I,J,II,KK) * DAREA1/DAREA2 
C USED TO FIND THE MODIFICATION FACTOR 
ARS(I,J,II,KK) = DAREA1/DAREA2 
SVFS(1,J) = VFHSS(I,J,II,KK) + SVFS(I,J) 
re = (1.-CBETA1)*VFHSS(I,J,I1,KK)+ 
& COSUMS(I,J 


230 CONTINUE 


CRAKKARKKAKKAEKKAAAKKAAKARRAARRERKARRARAERRAARKRAARRERAARARARRRAERAAKERREKKKARKKA 
C HEAT SOURCE VIEW FACTOR FROM THE HEAT SOURCE TO THE CYLINDER 


M=NJI-1 
DO 240 I =1,2 

IF(I .EQ. 2) M = MJ - FPAND 
DO 240 J = NUS, M 


DO 240 II = NIS, NI-1 
DO 240 KK = NA, NB-1l 
DAREA AREAC 


Tg 
Z1 = Z(II,KK) 
HSY = Y(I,J) 
EANG = ABS(HSANG(I,J) - THETA(II,KK)) 
IF(EANG .GT. PI)EANG = 2.0*PI - EANG 
ASQ = R**2 + HSY**2 - 2.0*R*(ABS(HSY) ) *COS(EANG) 
ZDIFF = ABS(HSZ - Z1) 
BSQ = ZDIFF**2 
RSQ = ASQ + BSO 
RD = oe 
RDM(I,J,II,KK) = RD 
ZETAZS = ZDIFF**2 + HSY**2 
CBETA2 = (R**2 + RSQ - ZETA2S) / (2.0 * R * RD) 
B = SORT(BSQ) 
CBETAL = B/RD 
CBC(T J- 11 Kh) —epnrad 
VFHC(I,J,II,KK) = ((CBETA1L*CBETA2)/(PI * Ree 
C FIND THE AREA THAT THE TANK ELEMENT "SEES OF THE FIRE" 
AREAR = DIAFP * DELY(I,J) 
AREACI = PI *(DIAFP/2.0)**2 
DAREA1 = AREAR*(1.-CBETA1) + AREACI*(CBETAL) 
C USE RECIPROSITY 
VFCH(II,KK,I,J) = VFHC(I,J,II,KK) * DAREA1/DAREA2 
C USED TO FIND THE MODIFICATION FACTOR 
ARC(I,J,II,KK) = DAREA1/DAREA2 
C NORTH CELLS 
IF ( KK .LT.((NB-NA)/2. + NA))THEN 
SVFN(I,J) = SVFN(I,J) + VFHC(I,J,II,KK) 
COSUMN(I,J) =(1.-CBETA1)*VFHC(I,J,II,KK) + COSUMN(I,J) 
C SOUTH CELLS 


ELSE IF ( KK .GE.((NB-NA)/2. + NA)) THEN 
SVES(I,J) = SVFS(1,J) + VEHGGie ia crs 
COSUMS(I,J) =(1.-CBETAL)*VFHC(1,J,11,KK) + COSUMS (ig 
oh, ENDIF 


NTINUE 
CRRKKKRKAKKKKAKAKARKKKKAKKAKAKKRRARARKKRAEKAAARARAKKRERAARARARKKRRERRRARARRKKER 


C FIND THE MODIFICATION FACTOR FOR THE FIRE CELES 

C NOTE THAT THIS OUTER DO LOOP IS USED TO MODIFY THE FN/FS VALUES 

C FURTHER ITERATIONS IMPROVE THE ACCURACY OF THIS MODIFICATION ROUTINE 
C FROM PRIOR TESTING FOR THIS CASE, TWO ITERATIONS ARESSUam Cia 


DO 246 N=1,2 


M=NJ -l 
DO 250s =e 
IF(I .EQ. 2) M = MJ - FPAND 
DO 250 J = NUS,M 
eee - i SVEN (tanga COSUMN(I,J) 
J) = (1. -SVFS(1,d)) ¥ GOsUNG i amean 


Boul 
250 CONTINUE 


2 


SeUoe THisc EN/Rs VAnBUBSLO MODIFY THE VIEW FACTOR FROM THE FIRE CELL 
C TO THE TANK CELL, THEN CALCULATE A NEW FN/FS BY USING SVFN/COSUMN 
C MATRICES THAT ARE NOW MODIFIED AGAIN. 


= NJ -1 
DO 255 1 =1,2 
IF(I .EQ. 2) M = MJ - FPAND 

DO 255 J = NUS,M 

COSUMN (TJ) = 0, 

COSUMS(I.J) = 0. 

SVEN 1.3} = 0, 

SVFS(I.J) = 0. 

DO 285 Il = NIS, NI-1 

DO 255 KK = NKS,NK-1 


C THE NORTH SPHERE 
Tee Kke oT. a THEN 
VFHNS(I,J,11,KK ere J,II,KK)*(1.+FN(1,J)* 
aL. “CBN (T / J, II, KK))) 

USE Heateans: 
VENSH(IL, ae L, a = VFHNS(I,J,I1,KK)*ARN(I,J,I1I,KX) 

C FIND A NEW SVF/COS 
SVFN(I,J) = EHS (ZL. J,II,KK) + SVEN(I,J) 
COSUMN(I,J)=(1.-CBN(I.J,11,XK))*VFHNS(1,J,1I,KK) + COSUMN(I,J) 


C NORTH SIDE OF THE CYLINDER CELLS 
ELSE IF (KK .LT. ((NB-NA)/2 +NA)) THEN 
VEHC(L, J, = KK) =VFHC(1,J,I1,KK)*(1.+FN(1I,J)* 

PaMe= Che (Tl Mit KK))) 

C USE ees ae 

VFCH(II,KK,I, 3), = VFHC(1,J,I1I,KK)*ARC(I,J,1I1,KK) 
FIND A NEW SVF/CO 

SVFN(I,J) = VEHC(L.J /II,KK) + SVFN(I,J) 
COSUMN(I,J)=(1.-CBC(I,J,I1,KK) )*VFHC(I,J,II,KK) + COSUMN(I,J) 


C SOUTH SIDE OF THE CYLINDER CELLS 
ELSE IF (KK .GE. ((NB-NA)/2 +NA) .AND. KK .LT.NB ) THEN 
EHCK 1 ol, TI RK) SVPHC(L, J,II,KK)*(1.+FS(1,J)* 

ei. =CBC(I,J,11,KK))) 

a USE eee anes 

VFCH(II,KK,I J), = VFHC(I,J,II,KK)*ARC(I,J,11,KkK) 
FIND A ae SVEF/CO 

SVFS(I,J) = eens /1I,KK) + SVFS(I,J) 
COSUMS(1I,J)=(1.-CBC(1,J,11,KK))*VFHC(I,J,II,KK) + COSUMS(I,J) 


ELSE 
C SOUTH SPHERE 
« (FHSS(I 2 
“CBS (I,J 
ee SaaS oeeae 
VFSSH(IIL, Re 1 J) = VFHSS(I,J,I1,KK)*ARS(1I,J,II,KK) 
FIND A NEW SVF/CO 
SVFS(I,J) = VFHSS (1 PET eKK ce SVES(T J) 
COSUMS(I,J)=(1.-CBS(1I,J,11,KK))*VFHSS(I,J,I1,KK) + COSUMS(I,J) 


ENDIF 
255 CONTINUE 
246 CONTINUE 


IT mS Sa (0,11, KK)*(1.+FS(1,3)* 


KRAEKKKKKRKKKKRKRKKKKRKRRKRRRRKKRRRRRKRKKKKRKKRRRRKKKKRKRKRRRKRKRRKKKKKKRRRRKRRKRKEKKKKKR 


Be veRr THE VIEW FACTORS INTO THE VFMXR MATRIX. THE FIRE CELLS WILL 

BE NUMBERED FROM THE FIRE PAN TO THE TOP OF THE CYLINDER. (561-579) 
CHANGE THE FOUR INDICE ARRAY FOR THE DISTANCE BETWEEN THE CELLS TO A 
TWO INDICE ARRAY, CALLED DIST(1,2). NOTE THE VIEW FACTORS FROM THE FIRE 
ae ae oe Pee LORD eat et WOnerenUom OF THES IWO SIDEDNESSs=®OF THE 


KSM1 = IREGN3 

bo 260°I = 1,2 
L 2 gee = 1 
M=NJ-1 


NANMAMNN 


oo 
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IF (L .EQ. 2) M = MJ - FPAND 
DO 260 J = NJS, 
IF ( L.EQ. 2) THEN 
JJ = MtNIS -J 


Eos 
JJ = J 
ENDIF “ 
Koll = KSiiler 
KSMZ = 1 
KSM3 = MREGNZ 
KSM4 = MREGN3 


C FROM THE HEAT SOURCE TO THE NORTH SPHERE 
DO 265 KK = NKS, NA-1 
DO 265 II = NIS NI-1l 
VEMXR(KSM1,KSM2) = VFHNS(L,JJ,II,KK)/2.0 
C USE RECIPROSITY 
VFMXR(KSM2,KSM1) = VFNSH(II,KK,L,JJ) 
DIST(KSM2,KSM1) = RDM(L,JJ,1I1I,RK) 
KSM2 = KSM2 + 1 
265 CONTINUE 


C FROM TY™ HEAT SOURCE TO THE CYLINDER 
DO 270 KK = NA, NB-1 
DO 270men —aioee tired 
VFMXR(KSHM1, SMS) = VFHC(L JJ, 1h 2 
C USE RECIPROSITY 
VFMXR (KSM3,KSM1) = VFCH(II,KK,L,JJ) 
DIST(KSM3,KSM1) = RDM(L,JJ,I1I,KK) 
KSM3 = KSM3 + 1 
270 CONTINUE 


C FROM THE HEAT SOURCE TO THE SOUTH SPHERE 
DO 275 KK = NB, NK-1l 
DO 275 II = NIS, NI-1 
VFMXR(KSM1,KSM4) = VFHSS(L,JJ,II,KK)/2.0 
C USE RECIPROSITY 
VFMXR(KSM4,KSM1) = VFSSH(II,KK,L,JJ) 
DIST(KSM4,KSM1) = RDM(L,JJ,II,KK) 
KSM4 =KSM4 + 1 
275 CONTINUE 
260 CONTINUE 
DO 276 I = 561,579 
DO 276 J = 561, 379 
VFMXR(I,J) = 0.0 


276 CONTINUE 
CRKKAKKKKAKKKAKKKKAKKKAKAAKAKAKKKAKKKKRAKAKKKAAKKKAKAKKKKAKKAKKKAKKKKKAKKAKKK 


THE FOLLOWING SECTION CORRECTS FOR THE VIEW FACTORS FROMTHE STA 
TO THE FIRE. SINCE THE EXACT AREA OF THE FIRE IS NOT KNGWNeiaeee 
MAY BE AN ERROR IN THE CALCULATION. THE TOTAL SUM OF THE VIEW FACTOR 
FROM ONE CELL TO EVERYTHING IN THE TANK MUST EQUAL ONE STHEsa Pees 
ee AaBOnG teas FROM THE TANK TO THE FIRE MUST SE eMChi ieee 
VARIABLES VFISUM = VIEW FACTOR TOTAL SUM, FROM ONE CELESTOezEe 
THE OTHER CELLS IN THE TANK INCLUDING THESEEEE 
DENOM = DENOMINATOR OF THE MODIFCATION WHICH IS A 
SUM OVER THE FIRE SERS. 
A MODIFICATION FACTOR 


ANAANANNAANNAN 


DO 280 I = 1, 560 
VFTSUM = QO. 
DENOM = 0. 
DOU 2E5 es ee 
VETSUM. = VFTSUM + VEMXR(I,J) 
IFC J .GE soo) STE 
DENOM = DENOM + VFMXR(I,J)/(SQRT(1.+(DIST(1I,J)/RE)**2) ) 


ENDIF 
285 CONTINUE 
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A = (1.-VFTSUM) / DENOM 
DO 290 K = 561,579 
VEMXR(I,K) = (1.+ A/(SQRT(1.+ (DIST(I,K)/RF)**2) ))*VFMXR(I,K) 
290 CONTINUE 
280 CONTINUE 
RETURN 
END 


SUBROUTINE INVER 
COMMON/BL1/ NIS,NI,NKS,NK,NA,NB,MI,MK,MKN,MKS,MKC,CL,DTHETA, 
Seri, Dents PAZ pa2, P23 ,21,k,P1,ZeYb1 ,ZCYLZ 


COMMON/BL2/ PHI(33),THETA(2:21,33) ,Z2(2:21,33) ,AREA(10) , AREAC 


COMMON/BL3/ MREGN1,MREGN2 ,MREGN3 , IREGN1, IREGN2, IREGN3 ,KSM1 ,KSM2, 
& KSM3,KSM4,KSM5 ,KSM6 


COMMON/BL4/ VFMXR(579,579) ,DELY(2,12),RF 


COMMON/BL5/WVFNN(2:21, 3 7,2:21,3:7) ,WVFSS(2:21,26:30,2:21,26:30), 
SeastiCe 21, 26-30,2-21 3:7) , WVENC(2:21/3:7,2:21,8: 25), 

S WVeCS(2:21,8:25,2:21,26:30), WVFSC(2:21,26:30,2: 21, 8:25), 

& WVENS (2:21,3:7,2:21, 26:30) ,WVFCN(2:21,8:25,2:21,3:7), 
SHVECC(2:21,8:25,2:21,8:25) 


COMMON/BL7/ NJS,NJ,MJ,HSZ,FPAND,HSANG(2,12),¥(2,12),HSY,DIAFP, 
Ee erie ey ein Gea cence ae ee Cae 
Pa eee Sc eee Dos es2h, 2o7s0 4,12), VFCH(2:-25,8:25,2,12 


COMMON /BLK8/VFMXC (579,579) , VFMXIN(579,579), 
& CONSRA, NHSZ,AR(579), EM(579) , Pe RE 


KKKEKKKKKKKKKKKKKKKKKKKEKKKKRKKKRKAKKKAKKRKKKKKKKEKRKKRKAKKKRKAKKRKKRKRRKKRKRKKRKAKKRKKKKKKRKKKRK 
* 


WKAREA = WORK SPACE REQUIRED BY THE IMSL ROUTINE * 
* VEMAC = MATRIX MODIFIED BEFORE INVERSION AND THEN LATER - 
* Heep POS tORee fae COnPPCTENTS BROM THE INVERTED = 
* TR Diino elnn RIGHE HAND MATRIX. THE “G" MATRIX 
* VFMAR = ORIGINAL MATRIX WITH THE VIEW FACTORS THEN 
“a MUEP EEE TED By “SIGMA TOUGEVE THE RIGHI=HAND MATRIA * 
* VEMXAIN = INVERTED VEMAG MATRIX FROM THE IMSL ROUTINE “3 
~ SIGHA = STEFAN-BOLTZMAN CONSTANT - 
* EM(J) = BUMISIVity < 
KREKAKKKKKAKRAKKKAKRKKKKKKRKRKKKKRKRKARKKAKRRKKRKKKKKKKRKKKKRKRKKRKAKRKRKRKKRKEKRKRKAKKRKKRKAKRKRKKKKKKK 


DIMENSION WKAREA( 579) 


C SIGMA IS SET TO ONE IN THIS PROGRAM, THE ACTUAL VALUE OF SIGMA WILL 
C BE USED IN THE TANK PROGRAM. 
C SIGMA = 1.714E-9 

SIGMA = 1.0 

CONSRA = l. 

MZ = IREGN3 

NZ = MZ + 19 

fo 10 J = 1, NZ 

IF ( J .LE. MZ ) THEN 
EM(J) = .84 


EM(J 
ENDIE 
10 CONTINUE 
CCTO SAVE SPACE, THE LEFT HAND MATRIX WILL BE CALLED VFMXC AND 
we oe =i, NZ OVER 
0 = Ne 


DO 
VFMXC(I,J) = eee 
15 VeMse(t a emo 1.)*VEMXR(I,J) / EM(J)/AR(J) 


DO 20 
: a : oe 
a VEUEC(T,1)" nae VFMXR(I,I)*(1.-EM(I))) / (AR(I) *EM(I)) 


CCTHE RIGHT HAND MATRIX WILL BE CALLED VFMXR AND WILL REPLACE 
CCTHE ORIGINAL VIEW FACTOR MATRIX 
BO «25 1:5 1, te 
O25o) =<1, 
VFMXR(I, ‘Sy = - VFMXR(I,J)*SIGMA 


{5 


25 CONTINUE 
I= 
VEUKR (I, Ty SIGMA+VFMXR(I,I) 
26 CONTINUE 


NN = NZ 
MM = NZ 
tise 
TAING = Nz 
[DGr ae 
CALL LINVIF(VFMXC,IA,NN,VFMXIN, IDGT ,WKAREA, IER) 
C MULTIPLY THE INVERTED MATRIX BY THE RIGHT HAND MATRIX TO GET THE 
C REQUIRED "G" MATRIX 
DO 30 I = L, Nz 
Do coe 
VEIIKC(, aie 
30 


VEMXC(I,J) = VFMXC(I,J) + VFMXIN(I,K)*VFMXR(K,J) 
30 CONTINUE 


C THE FOLLOWING PRINT STATEMENTS CHECK A FEW ROWS TO SEE WHAT Sie 
C ELEMENTS ARE. THESE PRINT STATEMENTS CAN BE OMITTED 


wou u 


WRITE (6, *) ee oO > VERIXG 
DO 50 I= 1 Z 
0 50 J = 


1, NZ 
WRITE(6,*) I,J, VFMXC(I,J) 
50 CONTINUE 
DO 51 J 8 = ay NZ 
I = 
ARETE (G. *) I,J, VEMXC(I,J) 
51 CONTINUE 
C THIS DO LOOP SUMS UP THE ROW OF THE "G" MATRIX TO SEE IF IT GOES TO 


C ZERO 
DO 56 t= ons 
AA = 0. 
be So =a of 
AA = VEMXC(I,J) + 
E IF (J .EQ. Suen E(x, RYT, 'SUM 560=',AA 
55 CONTINUE 
WRITE(%,*) 'ROW', I, ‘SUM =', AA 


56 CONTINUE 
C THESE STATEMENTS WRITE THE "G" MATRIX COEFICIENTS TO A DISK FOR 
C USE WITH THE TANK PROGRAM 
WRITE(9) VFMXC 
REWIND 9 
RETURN 
END 


SUBROUTINE AREAI1 
COMMON/BL1/ NIS,NI,NKS,NK,NA,NB,MI,MK,MKN,MKS ,MKC,CL,DTHETA, 
& DPHIN,DPHIS ,D2Z1 ,D2Z2,D23,21 Rk, PijZerie sede 


COMMON/BL2/ PHI(33),THETA(2:21,33) ,2Z2(2:21,33) ,AREA(10) ,AREAC 


COMMON/BL3/ MREGN1 ,MREGN2 ,MREGN3 , IREGN1, IREGN2, IREGN3,KSM1,KSM2, 
& KSM3,KSM4,KSM5 ,KSM6 


COMMON/BL4/ VFMXR(579,579) ,DELY(2,12),RF 


COMMON/BLS/WVFNN(2:21, oe :7,2:21,3:7) ,WVFSS(2:21,26:30,2:21) 260m 
& WVESN( 2:21) 26 -s0rzi2i 3:7) WVENC ( 2210 ot ie Pr :25), 
& WVFCS(2:21,8:25,2:21, 26:30), WVESC(2: :21, 26: Bon 2: 21,8225)— 
& WVENS(2:21,3:7,2:21,26: :30), WVFCN(2:21,8:25, me :7), 
EWVEFCE( 2321, 8: 25,2:21,8:25 ) 


COMMON/BL7/ NJS,NJ,MJ,HSZ,FPAND,HSANG(2,12),Y¥(2,12) ,HSY,DIAFP, 
EY ERSH Da ns i eet oe acre ee Veneto io; aco an 
&VFNSH(2:21,3:7,2,12) ,VFSSH(2:21,26:30,2,12) \VEGH 232 ee 


COMMON/BLK8/VFMXC(579, 879). /VFMXIN(579,579), 
& CONSRA, NHSZ,AR(579) ,EM(579),IFIRE 


Cwents oer ps ASSIGNS AN AREA TO A CELL BY THE CELL'S NUMBER 
c HS = 1 
DO 55 I = 1,IREGN3 
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AR(I) = 0.0 
55 CONTINUE 
DO 60 I = 1 ,MKN 
DO 60 J = 1, IREGN1 


IF (J .LE. MI*I .AND. AR(J) .EQ. O. ) AR(J) = AREA(I) 
60 CONTINUE 


DO 70 J = MREGN2,IREGN2 
AR(J) = AREAC 
70 CONTINUE 
DO 80 J = MREGN3,IREGN3 
DO 80 I = MKN+1,MKN+MKS 
IF(J .LE. (MI*(I-MKN)+IREGN2) .AND.AR(J).EQ.0.)AR(J)=AREA(I) 
80 CONTINUE 


@ It SETS THE FIRE AREA TO BE A RECTANGLE 
DY =R/ MJ 
BOmso Ke=e561, 579 
AR(K) = DIAFP * DY 
85 CONTINUE 


RETURN 
END 


Sy 


AANANANANANANINANNIAANM 


AANANANINAA 


APPENDIX B 


FORTRAN LISTING OF SPHERICAL/CYLINDRICAL NUMERICAL 


ARK 
ARK 
ARK 
KAK 
KKK 
AK 
KKK 
KKK 
AKK 


MODEL 
KRAEAKKKKKRKKARKAKKAKKKKKKKKRKRRKKAKRKAKRKKRKRKRKRKRAKRKRKRKKRRKRKKRKRKKRRRKRAKARKAKRRKKKERE 
K* aX 
* THREE-DIMENSIONAL NUMERICAL SIMULATION a 
ae OF A FIRE SPREAD INSIDE A NAVY STORAGE TANK xa 
ak DEVELOPED BY : * 
ak H.Q. YANG AND K.T. YANG a 
AX zA* 
RR DEPARTMENT OF AEROSPACE & MECHANICAL ENGINEERING aia 
ee UNIVERSITY OF NOTRE DAME *k 
* NOTRE DAME, INDIANA, 46556 ae 
KX zK* 
ak DEC. 1986 ax 
** *K* 


KAEEKEKEKRKKKKKRKKKKAKAKKKKAKRAKKRRRRKRRKRKREAREKRKAREKRRARRRRRKEREKRRKAKARKAERRREREK 


co ee 3 YC (93) ,Z2C(93) ,XS(93), YS (83) 25(93)4 
& DXXC(93) ,DY¥C(93) ,DZZC (93) , DXxS(93) , DYYS oa? DZZS(93) 
COMMON/BL1/DX, aa Ae VOL ,DTIME , VOLDT, THOT ,TCOOL , PI, 
COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP ,NJRA,NWRP 
COMMON/BL12/ NWRITE ,NTAPE ,NTMAXO ,NTREAL,TIME,SORSUM, ITER 
COMMON/BL14/HCOEF , TINF, CNT, ABTURB, BTURB , VISL, VISMAX , OCORRT , PM1 , PM2 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4,CONST6 ,NT,UO,H,UGRT, BUOY, 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP , THRITE, TTAPE, TMAX,GC,RAIR 
COMMON/BL20/SIG11(22,16, 32), SIGIZ( 22 0lee 132), /SI1G22(22,16 22 
,$1G13(22,16,32) ,51G23(22,16, 32) ,$1G33(22, 16,32 
COMMON/BL22/ICHPB 10), ,NCHPI(10), JCHPB(10) NCHP J (1 ) ,KCHPB(10), 
NCHPK(10), TCHP(10), CPS (10) ,C 10 
COMMON/BL31/ TOD(22,16, a2) ,ROD(22,16, 32 POD (22, leg ) 
,COD(22,16,32) ,UOD( 22,16, 32) von 22, 16,32), WOD(22,16,32) 
COMMON/BL32/ T(22,16,32),R(22,16, 32) P(22 32) 
-€(22, 16932) U(22 1632) veers 53) (23,16, 32) 
COMMON/BL33/ TPD(22,16,32) ,RPD(22, 16 532), ,PPD(22,16, zr 
,CPD(22,16,32),UPD(22,16,32),VPD(22,16,32) ,WPD(22,16,32) 


ot 


ez. 
comin ee 16, san ee AS, 32) 2M 22, Leal ,AN(22,16,32), 
AS(22,16,32) ,AF(22,16 32); AB( 22 staneo 
SP(22,16,32),SU(22, 16,32) RE 22) len cen 
COMMON/ BL3 7/ Vins 220 tGe 32) -COND 0 ,16,32),NOD(22, 16, 32) , RWALL(560) 
M1(22,16,32),HSZ(3,2) ,NHSZ(22,16,32),RESORM(93) 
COMMON/BLSBYNTHCO. CX(12), on CZ(12) ,NTH(12,3), TCOUE( Ia) 
COMMON/BL39/ALEW, PCURVE , CONSRA, PCURM1 , PSOUTH , QCORR, PERKOR 
DIMENSION VFMXC(579,579) , T4WALL(579) 
DATA N, ITLEFT, SORMAX, XTIME, ITMAX/20,400000,0.40,0.0,4/ 


QD MQM MOM WM WM Nye MK 
<a 
o>) 
lJ 
NO 
~—— 
un 
Pace 
rg 
ny 
ee OO 
Nh 
NO 
b= 
Ov 
tJ 
NO 
— 
ny 
rd 
om 
NO 
ho 
4 
Ov 
UJ 
N 
~~ 


~ 


UO : REFERENCE VELOCITY (FT/SEC),1 ee 
RHOO ; REFERENCE ALR DENSELY (LBM/FT* 

H : REFERENCE LENGTH (FT) 

TA : REFERENCE TEMPERATURE (R) 

TINIT : INITIAL TEMPERATURE (0) 

GG : GRAVITATIONAL CONSTANT 

RAITR =: GAS CONSTANT; 53.32 


CONSTIy 8-00-77 Ge 
CONSI3 4) INVERSE OF 1A 
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xkX CONST4 : REFERENCE LENGTH (CM) 

xk CONST6 : REFERENCE VELOCITY (CM/S) 
xR CONSRA : TA**3/(RA*CPXUO*HAH ) 

kkk NTRWR : NTREAL/NWRITE*NWRITE 

AAX NTRWA : NTREAL/NWALT*NWALT 


AXX RAD,H: RADIUS OF THE CYLINDRICAL AND SPHERICAL SECTIONS 
Sy LEGION Ore THE CYEINDRICAL SECTION OF THE TANK 


NB 
max HSZ(1, ce Roa lez) Fikst oan LAST COORDIANTE OF HEAT SOURCE 
Hsa(2,l),HSZ(2,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 
HS2Z(3,1),HSZ(3,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 


*k*X TCHPB : STARTING NODAL NUMBER FOR SOLID IN THETA-DIRECTION 
JEHPS ; RevoReerlon 
KCHES : ZpOk, PHEsDERECTION 

xX NCHPI : NUMBER OF NODALS FOR SOLID IN THETA-DIRECTION 
NCHPJ ; R-etREelron 


NCHPK Pol Diner LON 
KAKAKKKKKARKK eee RRR EAA RARER NEHA AEA AE RATER AI 


a a ata aetna 
UT DA & 


IN TA 
EEE EE EEE EEE EE EE EEE EEEEE EEE EEE EEE EEE EEE EEE EE EEE EEE EEE EE EEE EE EEE 
CALL INPUT 


CEE EEEEEEEE EEE EEE EE EE EE EEE EEE EE EE EEE EE EEE EEE EEE EEE EEE EEE EEE EEE EE 

c GENERATE GRID SYSTEM & 

C EEE EEE EEE EEE EEE EEE EE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE 
CALL GRID 


: ee rane aes inner nian rnin nna 
READ VIEW FACTOR INVERSE MAT + 
CHHRAHRHEEURALAELGREERTAHIAESEHASNESHESRITRAGRE TRAGER INARNERIGS 
READ (11,END=998) VFMXC 
GOTO 999 
998 CONTINUE 
REWIND 11 
CLOSE (11) 


EEE EEE EE EEE EE EEE EEE EE EEE EEE EE EEE E EEE EEE EEE EEE EEE EE EE EEE EEE EEE 
INITIALIZE THE WHOLE FIELD & 
ea eae eo ESBS eel cba Selec 


EE EEE EEE EEE EEE EEEE EEE EEE EEEEEEEC EE EEE EE EEE EE EEE EEE EEE EEEE EEE EEE 
START CALCULATION & 
EEE EEE EEE EEE EE EEE EE EEE EE EE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE EEE 


NT=0 
NTIM=0 


300 CONTINUE 
NT=NT+1 


AAR NTMAXO HAS THE MEANING AS "NTREAL" WHEN IT IS READ FROM 
DISK OR TAPE. 


IF(XTIME .GT. TMAX) GO TO 303 
NTREAL=NT+NTMAXO 
TIME=TIME+DTIME 
XTIME=TIME*H/UO 


aman 1a 


M10) 


9 


*kk HCONV : HEAT TRANSFER COEFFICIENT ON THE AMBIENT (BTU/H.FT**2K) 


xAK NI : TOTAL NUMBER CELLS IN THETA-DIRECTION 
NJ : R-DIRECTION 
NK : Z AND PHI-DIRECTIONS 
NA : Perks Levuicben s c-DIRECTION, ALONG THE CYLINDER AAIS 


LAST NUMBER Z-DIRECTION, ALONG THE CYLINDER AXIS 
IN X-DIRECTION (IN DIMENSIONLESS FORM) 
IN Y-DIRECTION (IN DIMENSIONLESS FORM) 
IN Z-DIRECTION (IN DIMENSIONLESS FORM) 


CEE EE EE SEE EE EEE SEES EE EEE EE EE EEE EEE EE EEE EEE EEE EEE EEE EE EEE EEEEEEEE 
& 


c CALCULATE THE TRANSIENT HEAT INPUT 
G NOTE IF 1 IN PARENTHESIS, THE BURN RATE IS CAneUcATaD & 
C BY THE PRESSURE CURVE. IF EQUAL TO TWO, THE BURN Kage & 
G CURVE IS EITHER GIVEN OR ESTIMATED 


& 
CESSES SESEES SES ESSE EES EES ESS SSE errr 
CAL Cano 


C xx START CALCULATION 


ITER=0 
JTERM=0 
JITERM=0 
C DEFINE THE UPDATED TPD(2,J,K), CPDL Ih pero eee 
Cc UPD(I,J,K) AND VPD(I,J KS FOR THE USE OF CALVIS AND SU (gd pe 


DO 48 K=1,NKP1 
DO 48 J=1,NJP1 
DO 487 =) NEPt 


TPP Lp dee wn 
COD 1 J hel oe 
RPD( 1 ,30,K)=Ri 1, Jen 
UPD 1 J =u oe 
VEDUL, J) av el dan 
WED dayne 


48 CONTINUE 

29 COnMINUE 
JTERM=JTERM+1 

301 CONTINUE 


CEE EEE EEE EEE EE EEE EE EEE EEE EEE EK EEE EE EEE EEEEE EEE EEE EEE SE EEEE EEE 
C CALCULATE THE RADIATION HEAT FLUX AT EVERY NRAD TIME STEPS & 
CE EEE EEEEEE EE EEE EEE SEE EEEEEEEE EE EEE EEE EEE EEE CE EEEE EEE EEEEEEEEEEE& 


NRAD = 2 
IF (MOD(NT,NRAD).NE.0) GOTO 4000 
CALL RADHT (T4WALL, VFMXC) 

4000 CONTINUE 


uM He UL ASG AER RG TE LRU R LAR UUM NUTRI | 
LATE THE TEMPERAT 


# 
CHET TE RENNES TRAN ER RRR 


CES AAReSSSsibhscietbssseesneeeseseea 
& CALCULATE THE SMOKE CONCENTRATION & 
CEEEEEE EEE EE EEEEEE EEE EE EEE EEE EE EE EE EEEEEE EEE EEEEEEE EE EEEEEEEE EE & 
é CALL CALC 


DO 2000 J=1,NJP1 

DO 2000 I=1,NIP1 

DO 2000 K=1,NKP1 

IF(T(1,J,K).LE.TCOOL) Tile) -mcoer 
£900, CONTINUE... 9.0.0.6.6.0.0.0.0.6.000.0.6.00.0.00 0c 0a T Oe eee ee 
C5656 65546 6OFF OF 66000660 0F 6004405606 00F600EH 
K0.9.00 9S SS STSITSSSSOSSOSS OOS TTS OE SHOE NS TS SEDO SEN ODSEEI9000000008 
C6656 66S6SS S555 S FO F6S0F 0606606660606 65560606 COS 


OQ 
Hee 
cs 
E* 
Q) 
ro 
© 
we 
e 9 


Ceee ee eeeeeee eee eee ee ee ee ee 
CALCULATE THE TURBULENT VISCOSITY AND CONDUCTIVITY 

Caaeeeassacacsdaacceccceacacsencsceaccecaaseeaccesaccdeaceeeacees 

CRARKAKAKKAKKKRAKKKRERAKKRARKKARARARARERARKAAKKRERKAKKRRERKKRKRKERKK 


CG CALCULATE THE DENSITY * 
CAKKKAKKKKKKKKKKKKKKKKKKKKRKRKRKRKRRKRRKRRRRRRKKRRRRRRKRRKKRKRKRKKKRKRKKKKKKKK 
DO 100 J=1,NJP1 
DO 100 I=1,NIP1 
DO 100 K=1,NKP1 
IF (NOD(I,J,K). EQ. .1) GOTO 100 
AAAA=BUOY*UGRT*HEIGHT(1I,J,K) 
R(I,J,K)=(UGRT*P(1I,J,K)+(1./EXP(AAAA)))/T(I,J,K) 
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100 CONTINUE 


: 


SO SSSSSSSSSSSSSssssssssss 
SSSSSSSSSssssssssssssssss 


i OU 17 


$ 
S 


CALL SOLCON 


IF (NCHIP. 
410 CONTINUE 


$ 
CSSSSsssss 


OPO\PG\Po\P 


ITER=ITER+1 
CEEELEEEEEEEEEEEEECEEEEECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


@ 


CELEEEEEEEEEEELEEEEEEEEEEEEEEECEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 


CALCULATE THE VELOSITY U,V,AND W 


c 


CALL CALV 
CALL STRESS 


C KKK KAKKKAKKARKAKK 
CALL CALW 


CALL CALU 
CALL STRESS 

RAR KKKKKKKKKKKKKK 
CALL STRESS 

kA KAKKKKKKAKKKKK 


eC 
C 
eC 
eC 
G 


& 


COS SSS SSS SoS SSS SS SSS SSS SSSSSSSSSSSsssssssssss 


CSO SSS SS SSS SSS SSS SS SS SSS S SSS SSSSSSSSSSSSsSssssssssssss 
CALCULATE THE PRESSURE AND STRESS 


C 


CALL CALP 
CALL STRESS 


O\°P0\Po\? 
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TE(TTER EO. @pmGo lens 
58 CONTINUE 
JITERM=0 
Go"TO) son 
304 CONTINUE 
JITERM=JITERM+1 
IF(JJTERM .EQ. 1) WRITE (6, 95) ITER,RESORM(ITER) , SORSUM 
IF(JTERM .EQ. 1) GO TO 
IF(JTERM .EO. 2 .AND. JSTERM .EQ. 1 .AND. ITER .NE. 5) GO TO 41 
Go Tome 
41 CONTINUE 
DO 40 K=1,NKP1 
DO 40 J=1,NJP1 
DO 40 I=1,NIP1 
R(T ,JepsRep (ieee 
UT, 2, .)=veDere as 
Vit, J, KJ=Venid dk 
W(I,J,K)=WPD(I,J,K 
P(E. J Ky =Penil dk 
40 CONTINUE 
IF(ITER .EQ. ITMAX) GO TO 49 
GO TO 29 
82 CONTINUE 
DO 43 K=1,NKP1 
DO 43 J=1,NJP1 
DO 43 I=1,NIP1 
=TPD 
=CPD 
=RPD 
=UPD 
=VPD 
=WPD 
=PPD 


w= CWNH 
IH HHH HH 
Cy Gy, 0,0, Cy 
MARARAA 
HHHHHHEH 


? f y 
, f f 
a ? , 
a f , 
a , ? 
a , f 
? a 7 


43 CONTINUE 

ee 2508 

IF ((JTERM "EO. 
GO TO 301 

49 CONTINUE 


ITERT=ITERT+ITER 
COASTER eevee Ra ea Aa em eae cd aie 
O THE PRESSURE BRACKING SU RR ane ;PRING 7 
ESUL LTS IB CAT THE RECHT Ties Pie + 
Srrrrenrernrermrstertnrernd tenner nr rd str ieee revere ttre tT ets! 


CALL PTRACK 


) GO TO 49 


Ok 
JK 
Ws 
JK 
J,K 
Jia 
OSs 
TMAX 

3 .AND. ITER .NE. 8) .OR. JJTERM .EQ. 2) GON 


IF (MOD(NTREAL ,NWRP).EQ.0) CALL OUT(1) 
C%%55%%% 750% 706% 7565 665 51S 55 5 1510.5 5515105 451515055510 > ESOS > ORE 
C FIND TEMPERATURES AT THERMOCOUPLE POINTS AND PRINT ue 2 
Cw ooaced to meo ose Re eT, cee ENT RET on occ0cc00.c cece eens 
£66666 S66 OFS666FOE 666660606 500606066F 066600006000 66060600O6 
ALL TCP 


IF (MOD(NTREAL,NWRP).EQ.0) CALL OUT(2) 
2422 CONTINUE 
IF (MOD(NTREAL,NWRITE).EQ.0) CALL OUT(3) 
e IF(NTREAL .EQ. NTREAL/NWRITE NWRITE) CALL OUT(3) 
505 CONTINUE 
IF ((XTIME+DTIME*H/UO) .GE. TMAX) GO TO 277 


C KKK RKKAKKAKKKKKKKAKKAKKKAAKKKRKEKRREKKKKERKRERKRERERKRERKRKRKKAKKKKK 
C CALL TLEFT(IT) 

C 123 FORMAT(  -1LTLEPT sea} 

G ITO=IT 

C IF (IT .LT.ITLEFT) CALL OUT (3) 

C KKK RAKRKKAKKAKKKKAKKKKAKAKKKKAKAKKAKKAKKERKKKERAKKRRKKKEKKEKKERKKKKRK KKK 
eo RESET THE OLD TIME VALUES TOD, ROD, UOD, VOD AND POD. 


DO 305 K=1,NKP1 
DO 305 J=1,NJP1 
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DO 30 
TOD CL 
COD(I 
ROD( I 
UOD( I 
VOD(T 
WOD(I 
POD(I 
305 CONTIN 


MITEL 
W 


c 
ENMITLH 


F(NT 
ccc | IWRITE=10 


CCC WRITE(IWRITE) 

meee LIME NIREAL,T,R,U,V,W,P,CPM, COND, VIS, ORNET, ITERT,QCORRT,PM1 ,PMZ, 
mec” 6& «H,TA,UO, CONDO , vISO, RHOO , piite, NJ,NK, /NIPI, NJP1,NKP1, NIM, NJM1, NMI, 
eec & Ne. YC, ZC Sy YS aoe Dac) DYYC, DZZC, Daas ,DYYS ,DZZsS 

Boe _WRITE (6, cS) 'THE TIME WHEN THE DATA WAS STORED ON TAPE IS:' 

ECC I 


C RKK RKKKAKKKKKKAAKKKKKKAKKKKRKKAKKAAKKKKRKAKKKAKKRKRKKARKKKRRKRKRKARKAKKKRKKKK 


HARA HHWHRHH SD 


~~ ~~ *» »~» *& * BS 


Na ee ee eee” ft 
Non MW tbe 

VE SaaWmNAHSa 
OO tn sin, [rome 


AARARAAAN Il 


ee ELT 
Seem anne TUE 
GOTG S22 


— -HY—— 
e —OQ— 
—— —. 
r—H— 
e —t)-— 


922 CONTINUE 
C RK AAKAKARAKKAKKAKKKAKAAAKAKAAKKAKAKAKKKAKKAKKARKAAKAKKAAKKKRRKAAARKKRE RK 


C CALL eee 2 
C IF(IT.L T.ITLEET) GO 
C RAK KAKRKAAKARKKKKKAKK OCCURS ok I Ick 


C TIMREM IS USED TO CALCULATE THE CPU TIME REMAINING AT NPS 
IF (TIMREM(O.).LE.80.) GOTO 166 


So Te eso 
303 CONTINUE 
277 CONTINUE 


ae ee 2 
ald 1 ee ahaa” *AK*X THE MAXIMUM TIME HAS BEEN REACHED ***x*x%x' 18) 
CORK KAAKKKKAKKKAAAAKKAKAKKARAKKKAKAKAAAKKKAKAAAAKAAKAAKRRRARAK RRR 


166 IF(NTREAL .NE. NTREAL/NTAPE*NTAPE) WRITE(9) 
Peto iisReaAl, | samo Wee pCulmecolD, Vis, ORNET, TIERT,OCORRT,PML,PMZ, 
eom,1A,U0, CONDO, VISO, RHOO , Ni NJ, NK, NIPI, NJP1,NKP1, NIM, NJM1, NKM1 , 
& KC, Te ee AS YS, ZS, Be DYYC, Wazer Dans, DY so Dado 


EWIN 
C RAK KAKKKKKKAKAKKAKKKAKKKAKAKKAKKKAAKKKKAKKKKKKAKKARKAKKAKKAKKKERKKKKAKK 


GOTO 172 

2020 CONTINUE 
WRITE (6,*) ' RESIDUAL MASS IS LARGER THAN 10.0, PROGRAM STOPS' 

172 CONTINUE 


STOP 
END 
E 
* KRARRAR KR * x x x * 
SUBROUTINE INPUT 
K KRRKKRKAKRKRKKKRKRKRKRKRRKRRRRRKERRKRKKRKRKAKKRKRKRKAKKRKKKKKKKRKRRKRKRRRKRRKRKRARRRAKRRKRKEKKKEEK 
* THIS SUBROUTINE SETS UP REQUIRED VALUES TO BEGIN THE PROGRAM. 
* VARIABLES ARE: 
* KRUN = WHEN EQUAL TO ONE,READ FROM THE 
* RESTART DISK, ELSE FROM THE JCL 
* NCHIP = NUMBER OF SOLID PIECES 
2 NWRP = eae OF TIME STEPS TO WRITE ON THE 
* NTHCO = NUMBER OF THERMOCOUPLES TO PRINT OUT 
* TMAX = MAXIMUM TIME ALLOWED (REAL) 
* ITWRITE = SECONDS IN REAL TIME TO PRINT THE 
* PeV,l FLELDS ON PAPER 
* TTAPE = TIME INTERVAL TO WRITE ON THE TAPE 
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AO OO 


DTIME 
Hoe 


ECHrS 
JCHEE 


i TIME STEP (DIMENSIONLESS) 
x 

* 

* 

* KCHPB 

* 

n 

*~ 

* 

* 


HEAT SOURCE SIZE, USED TO CALCULATE 
THE VOLUME OF THE FIRE SCE EE 
FIRST SOLID NODE IN THETA DIRECTION 
FIRST SOLID NODE [NVR PrRE Sara) 
FIRST SOLID NODE IN PH? DiReeree 
NCHPI NUMBER OF NODES IN THETA DIRECTION 
NCHPJ NUMBER OF NODES IN R DIRECTION 
NUMBER OF NODES IN PHI eS 


Cee 
THERMOCOUPLE POSITIONS IN THETA TR yeas 
Jciciciidcioh ica oo Ta ICRI Ica TO TR 


COMMON /R4/XC (93 -¥C(93) ,ZC(Ga exci cere YS (93) , ,28(93 5 
& DXXC(93) , DYYC(93) ,DZZC(93) , DXxXS(93) ,D¥YYS(93) ,DZZS(93) 
COMMON/BL1/DX,DY,DZ, VOL ,DTIME , VOLDT, THOT, TCOOL , PI 
COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP ,NJRA,NWRP 
COMMON/BL12/ NWRITE,NTAPE ,NTMAXO ,NTREAL , TIME ,SORSUM, ITER 
COMMON/BL14/HCOEF , TINF, CNT ,ABTURB , BTURB,, VISL, VISMAX , OCORRT , PM1 , PM2 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4, CONST6 ,NT,UO,H, UGRT, BUOY, 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA, DTEMP , TWRITE,TTAPE, TMAX,GC, RAIR 
COMMON/BL20/S1G11(22, 16, 32), S1G12( 22, 16, a /SIG2210220 16m 32) 
G13(22,16,32) ,S1G23(22,16,32) ,SIG33(22, levee 
conHON/BL.22/ TCHEB(10) /NCHPI(10) ,JCHPB(10), NCHPI(10), KCHPB(10), 
NCHPX (10), TCHP(10) | CPs 10),CONS(10 
COMMON/BL31 / TOD(22,16, 3203 /ROD(22,16,32),POD(22,16, eal 
D(22 lone2) Uonige 16, 32) VOD 22, , 26 ,32),WOD(22,16,32) 
common /BL32/ 1(22, 16,32) R(22,16,32 eee 2 
UO ica OI ;16 $3)° ria 16, 132) 
common/BL 3/ TPD( 22" 1 3203 /RPD( 22,16, 3223 ,PPD(22 cy 
,CPD(22,16,32),UPD(22 16, 32), VPD(22,16,32), APD 22, 168829 
COMMON/BL34/ HEIGHT(22,16,32) ,REO(22,16, 32) ie 


SMP(22,16,32), SUPP 22 - le soe P (22 
COMMON/BL36/AP (22, ite. 32) /AE(22,16, Bee ,16,32),AN(22, leweoum 


PP a i a MM 


DU(22,16,32) ,DV(22,16,32) ,DW(22,16 
AS(22,16,32) ,AF(22,16 32) ; AB(22 dene 
SP(22,16, 4357 SMe le oc ae (221 
COMMON /BL37/ Va Soe pee 123) CONDY 2 16, 33) 'NOD(22,16, 6.32). /RWALL (560) 
M(22,16,32),HSZ(3,2) ,NHSZ(22,16, 32), RESORM 
COMMON /BL3B/NTHCO. CX(12)) CY.(12) CZ 12s eee Tcoueti2) 


R CTH OCW DM LF KF M 


C #1. READ IN DATA TO INDICATE EITHER KRUN=0 OR 1 
READ(5,*) KRUN,NCHIP ,NWRP,NTHCO 


C #2. READ IN DATA SET 1 - 6 DATA 
READ(5,*) TMAX,TWRITE,TTAPE,DTIME 
C #3. READ IN DATA FOR HEAT SOURCE 
READ ie an HSL. 13 ee a Healey Me ee 7 Heo Tt nee a 
WRITE(6,20) HSZ(1,1),HSZ(1,2) ,HSZ(2,1),HSZ(2, 2) ,HSZ(S yy eee 
20 FORMAT (/5 20x. 'HEAT SOURCE LOCATION IS IN THE VOLUME (NON- -DIvEo 
'NSIONAL WITH RESPECT TO RADIUS)', 
jon ERO ,F8.4, TO ',F8.4,' IN X=DIREGTOGrEe 
/,5X, 'FROM ES IAL TO ',FS.4,' IN YeDIREGRIC I 
/,5%,'FROM ',F8.4,' TO ',F8.4," IN Z=DIREGITOnE A 


DM OH, 


C #4. READ IN DECK DATA 


IF (NCHIP.EQ.0) GOTO 16 

PRINT * 

PRINT *,' THE REGION BOUNDED BY SOLID! 

DO 19 N=1,NCHIP 

READ (5,3 Pee /NCHPI(N), JCHEB(N) , NCHPJ(N) , KCHPB(N), 
NCHPK TCHP (N), ee 

WRITE (6,10) 1 /NCHPI(N CHEB) ar /KCHPB(N), 

c 


& K(N TCHP(N), ee ac 

10 FORMAT (2X,'N= ',12,' ICHPB= ee, I= ',1I2, ' JCHPB= ')ize 
&' NCHPJ= "(12 “) KCHPp= sno eee 112, ' TCHP= ',F8.5, 
&' CPS= ',F8.5, ' CONS = ite to 57 


19 CONTINUE 
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16 CONTINUE 


C #5. 


C 


INPUT THERMOCOUPLE COORDINATE 
IN TERMS OF X(THETA), Y(RADIUS) ,Z(PHI) 


ERohg, * 

PENS an THERMGEOUREP me OSLTION IN TERMS OF THETA, R, PHI! 
PRINT 

DO 110 I=1,NTHCO 

READ (5, *) CHT) 8 Cx (T) 6 CZ(1) 


WRITE (6 cl) Gx) CZ (T ) 
110 CONTINUE 
RETURN 
END 
a a “a “a “a a AAR RARARKRAARARARARARARARRA 


De OR OR OR OR OR OR OR OR OR OOF OF OOF OO OF OO OOF Ob OOF OO OF Ob OF Ob OF OO OO OOO 0a OOO] 


peer OF Tee FO 
_OD 


_PD 
WHERE THE PARAMETER 


SUBROUTINE INIT 
KAR KKAKKKAKKAKKAKKARKKKAKKAKKKKKAKKAAKKAKAKARKKKAKKKRAKKARKAKKRRAKRKAKKKKARKKA 


RRERRKAKKKRKAKKKKKKKKKKKKKKKKKAKAKKKKAKKKKKAKKKKRKAKKAKRKAKERKERRARKAKKKKARRKRKK A 
ites oe oROULINE INITIALIZES THE FIELD AND CONSTANTS WITH RESPECT : 


MOM LET ITAL STAR! OR RESTARTING CAPABILITY. 
VARIABLES ARE : 


TIME a DIMENSIONLESS TIME 

uO 7 CHARACTERISTIC VELOCITY (1 FT/SEC) 

H 7 CHARACTERISTIC LENGTH (RADIUS(9.6FT) ) 

TR = TEMP IN DEGREES KELVIN 

103 = TEMP IN DEGREES RANKINE 

VISO = REFERENCE VISCOSITY (NONDIM) 

VISL = MINIMUM VISCOSITY er 

VISMAX ES MAXIMUM VISCOSITY (NONDIM 

HR = RADIUS IN Ci 

CONDO = REFERENCE CONDUCTIVITY 

CO = INITIAL SMOKE CONCENTRATION 

NJRA = POINT OF RADIATION IN J DIRECTION 
LOCATED ON THE INNER SOLID BOUNDARY 

HCONV = HEAT TRANSFER COEFFICIENT 

HCOEF = DIMENSIONLESS HEAT TRANSFER COEF 

CONST1 = USED TO NONDIMENSIONALIZE PRESSURE 

RHOO 7 REFERENCE DENSITY 

Ge 7 GRAVITY CONSTANT 

BUOY E BUOYANCY FORCE CONSTANT 

UGRT = PERFECT GAS LAW NONDIMENSIONAL CONSTANT 

CPO = REFERENCE SPECIFIC HEAT 

NWRITE/ = NONDIMENSIONAL FORMS OF TWRITE AND 

NTAPE TTAPE 


8 


DIMENSIONLESS PARAMETER AT OLD TIME 
DIMENSIONLESS PARAMETER 
UPDATED DIMENSIONLESS PARAMETER 


neon ui 


ARE 
U,V,W VEBCCLEY St Theta hoya) DIRECTION 
Te Ae TEMP, PRESSURE, AND SMOKE CONCENTRATION 
DU,DV,D2 = USED IN PRESSURE CORRECTION SUBROUTINE 
Be = CORRECTED PRESSURE (P') 
SU = SOURCE TERM 
Sie = TERM AT P NODAL POINT FOR BOUNDARY 

CONDITIONS 

AP = COEFICIENT AT NODAL POINT 
AE ,AW,AN = COme CIENTS Am PTS EAST WEST ,NORTH, 


AS) Ab | AB SOUTH, FRONT, AND BACK 


Sle = RESIDUAL MASS SUMMATION OF NODAL POINT 
SNPP = LENGTH SCALE FOR TURBULENCE 

ecl = BEA TSP eeLP re HEAT 

VIS = Viscosity 

COND = CONDUCTIVITY MATRIX 

NHSZ = WHEN THIS VALUE EQUALS ZERO, THERE IS 


NO HEAT SOURCE LOCATED AT THE NODE 
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AO OO OO OOO OOO 


OO OO A oe a 


C xk 


& 
COMMON /BL22/ICHPS 


RP PW CPM WM WM W PM 


NOD = IF EQUAL TO ZERO, LIQUID x 
IF EQUAL TO ONE, SOLID * 
_BllE = BEGINNING AND ENDING NODAL POINT FOR * 
THE SOLID IN I,J,K x 
REQ = DENSITY AT EQUILIBRIUM x 
NIP1 = NODAL POINT IN I PLUS 1 (OTHERS SIMILAR) 
XC, YG sz = THETA,R,PHI LOCATION OF NODAL POINT OF 
A CENTER CELL x 
De a LENGTH AROUND THE CENTER CELL ‘ 
XS,YS,ZS = THETA,R,PHI LOCATION OF NODAL POINT OF * 
A STAGGERED CELL * 
DXXS , DYYS = LENGTH AROUND THE STAGGERED CELL 4 
DZZS 


LOCATION OF THERMOCOUPLE IN THETA PHI* 


Jk eA I A RIA RSA SILI I RII TR RTA ERETR IORI ERIE SE 
COMMON; RS Ree YC(93),2C( 93) xsieoe its (935 DY 
& 


XC(93) ,DYYC(93) ,DZZC(93) , DXXS(9 Bris (3), DZZS (93) 
COMMON/BLI/Dx- DY,DZ,VOL,DTIME , VOLDT , THOT , TCOO 
COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1, ie 

/NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP ,NJRA, NWRP 
COMMON/BL12/ NWRITE,NTAPE ,NTMAXO ,NTREAL, TIME ,SORSUM, ITER 
COMMON/BL14/HCOEF , TINF, CNT, ABTURB, BTURB, VISL, VISMAX,QCORRT,P™1 PM2 
COMMON/BL16/ CONST1,CONST2,CONST3 , CONST4, CONST6 ,NT,U0,H,UGRT, BUOY, 


& €PO, PRT ,CONbo- VISO, RHOO, HR, AS, TA, DEEME; ‘TWRITE, ‘TTAPE, ‘TMAX Ger RAIR 


COMMON/BL20/S1G11(22, 16, 32), (SIG12( 220uee Ee $1622 (22, 16, 32 
oe 16, 32),S1G23(22,16,32),S1G33(22) tame 
te ,NCHPT(10) , JCHPB(10) ,NCHPJ(10),KCHPB(10), 
NCHPK (10), TCHP(10),CPS(10) , CONS(10) 
COMMON/BL31/ TOD(22,16, a 'ROD(22,16,32),POD(22,16 a3) 
/COD(22,16, 32), UOD 22,16, 32) voD(22,16,32) ,WOD(22,16,32) 
COMMON /BL32/ T(22,16,32),RU22,16, 32) ,Picen lenses 
(C( 22716 (32 Ue tee oe 16,32) ,W(22,16, 32) 
COMMON /BL33/_ TPD(22,16, nay RpD(22, 16, eas PPD 22 ee aa 
22,16, 32) ,UPD(22,16,32),VPD(22,16,32),WPD(22,16, 32) 
COMMON /BL34/ HEIGHT (22,16, 32), REQ(22,16,32), 
SUB (22, 16,32), SMPP(22,16,32) ,PP(22,16,32), 
DU(22,16,32) ,DV(22,.16,32) ,DW(22,16, 32) 
COMMON/BL36/AP(22,16, 32), AE(22,16, a8 ,AW(22,16,32),AN(22,16,32), 
AS(22,16 32), AF(22,16,32),AB 22, 16,32), 

SP(22, 16,32) sU(c2 lo oR oe 2 
COMMON /BL37/ vis(a2. ioe 32) “COND (22, ie one NOD(22,16, 32), RWALL (560) 
1(22,16,32),HSZ(3,2),NHSZ(22, 16 "32) , RESORM(93) 
COMMON/BE3BYNTHCO’ Cx(12)) eva Teen TH( 12, Se TeOURN lay 
COMMON /BL39/ALEW, PCURVE , CONSRA, PCURM1 , PSOUTH, OCORR, PERROR 

DATA GRAV/32.17/ 


INTRODUCE GIVEN PARAMETERS 


TIME=0'. 
TR=TA/1.8 
H= 


=9 .6 
VISO=VIS0O/U0/H 
VISL=VISO 
VISMAX=400.*VISL 
HR=H*30.48 
CONDO=VISO/PRT 
PI=4.*ATAN(1.) 


C THE HEAT TRANSFER COEFFICIENT IS IN BTU/HR/FT**2/F 


HCONV=5.0 
HCOEF=HCONV*4 . / (3600 . *CPO*RHOO*U0) 


CONST1=RHOO*U0*U0/ (GC*14.696%*144. ) 
CONST 3=16/ 74 

CONST4=H*30.48 

CONST6=U0*30.48 

TMAX0=0 
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BUOY=GRAV*H/(UO0*UO) 

UGRT=U0*UO / (GC*RAIR*TA) 

TCOOL=1.0 

CONSRA=TA*TA*TA/ (RHOO*CPO*U0* 3600. *H*H)*1.714E-9 


WRITE(6,200) TR,CONDO,VISO,CPO,HR,DTIME,HCONV 
200 FORMAT (55, pelea REFRENCE TEMPERATURE AND THERMAL PROPERTIES',/, 


j-) Shae 10.4, | i CONDO =O, 
& /,9X,'VISO = E12. on CPO ete Ze Or; 
& /,5X, 'RADIUS =" ,olZaor CMe; 
& (on DL LE y= E12. 6, 
& /,5X,'HCONV = nopee Gey) 


NWRITE= ce 
NTAPE=TTAPE*U0/DTIME/H 
C *xX PRINT OUT INPUT INFORMATION 


WRITE(6,61) (STAR,I=1,90) ,KRUN,TMAX,TWRITE,TTAPE ,NWRP 
61 FORMAT (///, COE, /, 5X,'KRUN =! Pie uo 
& 'TMAX /F8.3, SECONDS! Se “TWRITE = 8 ai 3 
& SECONDS ' wy SX, 'TTAPE =! /F8. 3,' SECONDS! 
ey On, NUMBER INTERVALS OF WRITING ON PAPER Oya) 


Ge xx% INITIALIZE VARIABLE FIELD 


DO 220 J=1,NJP1 
BOez20 I=1,NIP1 
DO 220 K=1,NKP1 


RUAHKRUARA UR I 

fH WW WW GO Gy 
es S 3 | 

oO OOO oO OO Or a 





OHOUDUOHOUHOUOHODOYD 


Hd CUMVMNZS=S=STcaScCcCCca 
= a to-O0 0 ten ~~ OO 0 ~~ OO 
es OO Ie ™ HOH HH HW W#s H# HW HW HW HWW Re 


DV 
D 


Tanita 1a Rea nT “uA N SS 
ODdDODdDON0O00000O OC Il « 


MNRARRARRARARAR 


I 


mx 


wee TD Oe ee Oe ee II 


v2 


AHO- 


oe 
I 
( 
I 
I 
J 
tt 
I 
I 
( 


J 


A WAR WAAR 


COU OroL ume 
Cy Fy a RY Cs 


N->~ 


i. 
cP 
T 
qT ' 
T 
C 
Cc 
C 
ua I 


OOoO-n~OO-—™~e« « 


Se ee aoe 
im HONWNON II -Il~ loo 


OWADANHVeVF ISG HO - 


tr 
xs 


Obi 
220 CONTIN 
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C *xK DETERMINE THE POSITION OF HEAT SOURGE 


DO” 3008l=2 It 
DO 300 J=2,NJ 


C CHANGE TO RECTANGULAR COORDINATES 
oe otieat 
YY=YC(J)*SIN(XC(I 
C CHECK TO SEE IF IN HS CONTROL VOLUME, IF SO SET NHS2Z=1 
Ig Te ST on oe Coes ae GOTO 310 
IF (YY .LT.HS2(2,1)-.OR.YY. Ges aeee GOTO 310 
NHSZ(1I,J,16)=1 
NHSZ(1I,J,17)=1 
315 FORMAT (2X,10(4X,14,2X,14)) 
GOTO 7300 
310 CONTINUE 
300 CONTINUE 


Caan DEFINE THERMAL PROPERTIES OF DECK AND SOLID 


IF (NCHIP.EQ.0) GOTO 410 
DO 402 N=1,NCHIP 
IB=ICHPB(N} 
IE=IB+NCHPI(N)-1 
JB=JCHPB (N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 

DO 405 I=IB,IE-1 

DO 405 J=JB,JE-1 

DO 405 K=KB,KE-1 

COND (I, J, K)=CONDO*CONS(N) 
Cot 1, Eee 
NODt td =I 

405 CONTINUE 

402 CONTINUE 

410 CONTINUE 


C *** FOR CONTINUING RUN, READ DATA FROM TAPE OR DISK 


IF(KRUN .EQ. 1) GO TO 9997 
GO TO 15 
9997 READ(8,END=9998) 
& TIME,NTMAXO,TOD,ROD,UOD,VOD,WOD,POD, CPM, COND, VIS,ORNET, ITERT,QCOR 
SRT, PM1, PM2, KK, XX,XK, XX, XX,XKX,NI,NJ,NK,NIP1,NJP1,NKP1,NIM1 ,NJM1 
& ,NKM1,XC,YC,ZC,XS,YS,2ZS,DXXC, DYYC , DZZC , DXXS ,DYYS , DZZS 
GO To 9997 
9998 CONTINUE 
REWIND 8 
CLOSE se 
WRITE(6,*)NTMAXO 
15 CONTINUE 


Co DEFINE HEIGHT OF NODE POINTS AND COMPUTESRR DROS FE {ese 
c EQUILIBRIUM DENSITY REQ(i ww 


DO 13 K=1,NKP1 
DO 13 I=1,NIP1 
DO 13 J=1,NJP1 
DHY=¥C(J)°SIN(KC(T))*SIN(ZC(K)) 
HEIGHT(I,J,K)=DHY 

13. CONTINUE 


C 
DO 229 J=1,NJP1 
DO 229 I=1,NIP1 
DO 229 K=1,NKP1 
AAAA=-BUOY*UGRT*HEIGHT(I,J,K) 
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229 
Cc KAK 


Z10 
e KKK 


5001 
5002 


5003 
5004 


5005 
5006 


5000 


REO(1,J,K)=EXP(AAAA) 

IF(KRUN .NE. 0) GO TO 229 

ait Rie = =REQ(T, an i aaa Pik) 
ROD(L,J.K)=RPD(1I.J.K 
R(I,J,KI=RPD(I,J,K) 

CONTINUE 


PPPEPAbIZe U;,V,1,R,P FIELD 


Demere K=1 ,NKP1 
DO 210 J=1,NJP1 
Dee2tot=1 Nipi 

=TOneied kK 
=COnil wk 
=ROD(I,J,K 
=VODKi aK 
= Vober 
=WoDid JK 
=POD(I,J,K 


HMAHHHHe 
C4 Cy Cy Cy Cy Cy 
Nt 


te = ~ ~~ ™* ™~ ~ 


QwesccwaH 


a 
HH 


FOLLOWING IS FOR DETERMINING THE THERMOCOUPLE POSITIONS 


DO 5000 N=1, NTHCO 
DO 5001 I=1,NIP 

IF (XC(T) . LT. Cx(N) . AND.XC(I+1).GE.CX(N)) GOTO 5002 
CONTINUE 

7 


DO 5003 J=1,NUP 
eee (a). LT. ey (N) AND. YC(J+1).GE.CY(N)) GOTO 5004 
CONTINUE 


DO 5005 K=1,NKP1 
IF (ZC(K).LT.CZ(N) .AND.ZC(K+1).GE.CZ(N)) GOTO 5006 
CONTINUE 


KK=K 
NTH(N,1)=I1 
NTH(N,2)=JJ 
NTH(N ,3)= 


CONTINUE 





RETURN 
END 


Rx nx nx x x 
SUBROUTINE CALVIS 
KAKKKKKKKKKKKKKKAKAKKAKKAKKKKKKRRERKRKKKKKKKKRKAAKRRARKRRRRRRAKKKAKK 


THIS SUBROUTINE CALCULATES THE TURBULENT VISCOSITY AND UPDATES” 
VISCOSITY MATRIA 


THE 
nee ERA K RAK RRAARRARRRARARRRKER HRA 


Been /84/%C (23), ees ZC(93) ,XS(93), ,¥S(93) Bio F 
c(93),Dz2ZC(93) ,/DXXS(93), DYyS 93) ,DZzS(93) 
COMMON /BL7/NT. ou NIML NJ,NIP1,NJM1,NK,NKP1,NKM 
& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN “NCHIP NIRA .NWRP 
COMMON/BL14/HCOEF, TINF , CNT, ABTURB, BTURB , VISL, VISMAX, OCORRT, PM1 , PM2 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4, CONST6 ,NT,UO,H,UGRT, BUOY, 
CPO, PRT, CONDO , VISO,RHOO,HR,TR,TA,DTEMP. TWRITE ‘TTAPE , TMAX,GC,RAIR 
COMMON /BL32/ T(22,16,32),R(22,16,32),P(22,16,32 
o C(22,16,32) PAC ens? i. 16, a "Cod, 16,32) 
COMMON/BL34/" HEIGHT (2 i167 a2)5 REQ OD 16,32 
MP (22,1632), SHPP (22, 16,32),PP(22,16,32), 
DU(22,16,32),DV(22,16,32) ,DW(22,16, 32) 
COMMON/BL36/AP(22,16, a AE(22,16, 3803 ,AW(22 , 16,32) ,AN(22,16,32), 
2,16,32),AF(22,16,32) ,AB 22, 16 32), 
SP(22,16,32),SU(22,16,32),R1 
COMMON/BL37/ V1IS(22,16, 323 /COND (22, aie 32); NOD(22,16, e383) /RWALL (560) 
,CPM(22,16,32),HSZ(3,2) ,NHSZ(22,16.32), eecert 9 


$ 


$2 $= SM 
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c AAX 


e 
C xxkx* 


CALCULATE LOCAL SHEAR AND VISCOSITY VIS(I,J,K) 


SPECIFY LOCAL TURBULENT LENGTH SCALES SMPP(I,J,K) 


DO 611 K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO 611 J=2,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JIM2=J-2 

DO 611 I=2,NI 

IP2=1+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF (1.—£0.2) IM2=NIM1 
IF (I.EQO.NI) IP2=3 

IF (NOD(I,J,K).EQ.1) GOTO 611 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 
DXP1=XL(IP1,J,K,0,0 
DAI SKE(T 50K. 

DYM1=YL(I,JM1, ! 

DZP1=ZL(1I,J,KP1, 

Dn = 7c nee 

The eNE Nd) COmOmlo1 

JP2=JP1 
DYN=DYN/2. 


f 
é 
f 





i f 
f ‘ 
f f 


OO O00 oo 
OO O00 OO 


DXML=XL(IM1,J,K, 
DYP1=YL(I,JP1,K 
DYJ =YL(I.J .K 

K 
DZ2M1=ZL(1,J3,KM1, 0:9) 
IF J 469.2) DYS=DYS/2. 
IF (K.EO.2) DZB=DZB/2. 





101i IF (Kk NE NK) GOTOsl G2 


KPZ=KP1l 
DZF=DZF/2. 


102 CONTINUE 
CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 


C kk* 


C kk 


DXE ate PIKE OP 1 
DXW =KL(I 9 ,g,K,0,1 
DYN ee 
DYS =YLil J) Kk oo 
DZF aah he 0-3) 
DZ5=2i i ees 


CACULATE DV/DX,D2V/DX2 ,DU/DX ,D2U/DXK2 ,DW/DX AND D2W/DxK2 


DUDX=(U(IP1,J,K)-U(I,J,K))/DXI 
DUDXW=0.5* U(tPs +k} ieee oe Ko 
DUDKE=0.5*(U(IP2,J,K)-U(I .J,K))/DXE 
D2UDX2=(DUDXE-DUDXW) /DXI 


DVDKXW=0 a (I ,JP1,K)+V(1I,J,K)-V(IM1,JP1,K)-V(I ae 


DVDXE=0.5*(V(IP1,JP1,K)+V(IP1,J,K)-V(1,JP1,K)-V 
DVDX=0. mente oa 
D2VDK2= (DVDXE-DVDXW) /DXI 


DWDXW=0. a 7 ,J,KP1)+W(I,J,K)-W(IM1,J,KP1)-W(IM1,J,K 
W(IP1,J,KP1)+W(IP1,J,K)-W(L,d,KP1)-W(I,J,K 


DWDXE=0 .5%* 
DWDX=0. .5* (DHDKE*DHDAW 
D2ZWDX2= DWDXE-DWDXW ) /DXI 
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ike 


7D xe 


1} /Dxe 


602 CONTINUE 
—— CALCULATE DU/DY,D2U/DY2,DV/DY,D2V/DY2,DW/DY AND D2W/DY2 


DVDY=(V(I,JP1,K)-V(I,J,K))/DYJ 
DvDys=0. 52 (¥ Be oe 
DVDYN=0.5*(V(I.JP2,K)-V(I.J .K))/DYN 
D2VDY2=(DVDYN-DVDYS)/DYJ 


errr es 2K Ui red IHL RY UCT ML R})/ es 
DUDYN=0.5*(U(IP1,JP1,K)+U(1,JP1,K)-U(IP1,J,K)-U(1I,J,K))/DYN 
ee enunys 

D2UDY2= (DUDYN-DUDYS)/DYJ 


Re a ut aco pa Rca Tw Rol Nulr toh N IDEN 
DWDYN=0 .5*(W(1I,JP1,KP1)+W(I,JP1,K)-W(I,J,KP1)-W(I,J,K))/DYN 
ae ib Shp 

D2WDY2= DWDYN-DWDYS ) /DYJ 


606 CONTINUE 
oa CALCULATE DU/DZ,D2U/DZ2,DV/DZ,D2V/DZ2,DW/DZ AND D2W/DZ2 


DWDZ=(W(I,J,KP1)-W(I,J,K))/DZK 

DUDZE= 0.5 (W(L 1 REO}-W(L dK es | 
DWDZB=0.5*(W(I,J,KP1)-W(1,J,KM1) )/DZB 

D2WDZ2=(DWDZF-DWDZB) /DZK 


ee (TTR) VE Ted ML) AV (Eg AML} / DE 
DVDZF=0.5*(V(I,JP1,KP1)+V(1I,d,KP1)-V(I,JP1,K)-V(1,J,K))/DZF 
eee => (DYDEE+DYDZB 

DVDZF-DVDZB) /DZK 


D2VDZ2= 

ge cea) UCT FR) UC GPL WoL) W(t |Z.) )/02B 
DUDZF=0.5*(U(IP1,J,KP1)+U(I,J,KP1)-U(IP1,J,K)-U(I,J,K))/DZF 

ee omen DUDZS) 

D2UDZ2= (DUDZF-DUDZB) /DZK 0108400 


aaa ee eee mec ates naa) ) CRCINL JK) SREQ( IML, J, K) ))/ 
eee age meroe ot TK) ) = (RCT IML K)SREQKT ,JHL,K) ))/ 
DRDZ=((R(1I,J,KP1)-REQ(I,J,KP1))-(R(I,J,KM1)-REQ(I,J,KM1)))/ 


(DZF+ 
Re) a2 rprac)2)), baby +COS(XC(T) )*DRDX 
+COS(ZC(K))*SIN(XC(I) )*DRDZ 


ee ** CALCULATE RICHARDSON NUMBER 


STRAIN=DUDY**2+DVDX**2+DWDX**2+DVDZ**2+DWDY**2+DUDZ**2 

DDO2 = SORT (DUDY*DUDY+DUDX*DUDKX+DUDZ*DUDZ+DVDY*DVDY+DVDX*DVDX+ 
& DVDZ*DVDZ+DWDX*DWDX+DWDY*DWDY+DWDZ*DWDZ ) 

IF(DDO2.EQ.0.)GO TO 600 


Gan*x CALCULATE TURBULENT LENGTH SCALE SMPP(I,J) 


gSMPLZ3-SORT (UT, J, R)AU(T, J,K)+V(1,5,K)AV(T, 3,R)+W(T,T,K)AW(T, J,K)) 
D 
SMPP12=DDO2 /SORT(D2UDX2*D2UDK2+D2UDY2*D2UDY2 
& +D2UDZ2*D2UDZ2+D2VDX2*D 2VDK2+D2VDY 2*D2VDY 2+D2VDZ2*D2VDZ2+ 
& D2WDZ2*D2WDZ2+D2WDX2*D2WDX2+D2WDY 2*D2WDY2 ) 
SMPP(I,J,K)=CNT*(SMP123+SMPP12)*.5 
RI(I,J,K)=-BUOY*DRDGA/(R(I,J,K)*STRAIN) 
ABRIPR=ABTURB+RI(I,J,K)/PRT 
ab iso.) CO TO co 
IF(ABRIPR .EQ. 0.) GO TO 613 
GO TO 610 
600 VIS(I,J,K)=VISL 
CoO.TO Gl 


& 
& 
& 
& 


al 





613 VES 
COMLOroL 
610 VIS(1I,J,K)=VISL+R(1I,J,K)*SMPP(I,J,K)*SMPP(I,J,K)*SORT(sIRAmee 
& 


(BTURB*ABRIPR 
IF(VIS(I,J,K) .GT. VISMAX) VIS(i,J,/K)=Visma. 


611 CONTINUE 


110 CONTINUE 


DO TTOr i= Nie 

DO 110 J=1,NJP1 

VIS ee ee 
Visti oul =VIS{ le 


DOF r20 =i hed 

DO 120 K=1,NKP1 

VIS EE a eon 
VIs(l ,J,K)=VIS(NI,J,K) 


120 CONTINUE 


DO 130 K=1,NKP1 
DO 130 I=1,NIP1 
Vis Se eee ua 
VIS(t 1 ,RJSVESt eZ ok 


130 CONT SNUE 


DO 140) J=lseed 

DO 140 J=1,NJP1 

DO 140 K=1,NKP1 

EF (NOD(1-d°) BOs) econo 940 
COND(I,J,K)=VIS(I,J3,K)/PRT 


140 CONTINUE 


c 
C xAKX 


C wR 


C xxx 


RETURN 
END 


ARARRK RAKRKARAAKAR x Pad 


SUBROUTINE CALT 

KEERKEKKKEKKEKRRREKRRKEKKRKRKRKKRKRKKRKRERKRKRKRRKRKRKRERRRKRRRKRKRERRKRKRKRKRRERRRRGE 
COMMON/R4/XC (93) , YC(93) ZC(93) (93) eee 

& DXXC (93) ,DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 
COMMON/BL1/DX, DY, DZ, VOL, DTIME , VOLDT, THOT, TCOOL, PI ,Q 
COMMON/BL7/NI,NIP1,NIML,NJ,NJP1,NUM1 ,NK,NKP1,NKM1 


& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 


COMMON/BL12/ NWRITE,NTAPE ,NIMAXO ,NTREAL,TIME,SORSUM, ITER 


COMMON/BL14/HCOEF , TINF ,CNT,ABTURB, BTURB, VISL, VISMAX,QCORRT, PM1 , PM2 
COMMON/BL16/ CONST1,CONST2,CONST3 , CONST4, CONST6 ,NI ,UO,H, UGRISBUGi 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP ,TWRITE, TTAPE , TMAX, GGyeeeee 


COMMON/BL22/ICHPB(10) ,NCHPI(10),JCHPB(10) ,NCHPJ(10) ,KCHPB(10), 

& NCHPK(10), TCHP(10) ;CPS(10) ,CONS(10) 

COMMON /BL31/ TOD(22,16,32),ROD(22, 16,32) ,POD(22, 16,32) 

COD(22,16,32),U0D(22.16,32) ,VOD(22,16 32), WonGezslameas 

COMMON/BL32/ T(22,16,32),R(22,16,32),P(22,16,32) 
C(22,16,32),U(22,16,32),V(22,16)a2 ee semen 

COMMON /BL33/ TeD( 22,1632) .RFD{ 22,16 2 1G aa 
-CPD(22,16,32),UPD(22,16,32),VPD(22,16, 32) ,WPD(22,16,32) 

COMMON/BL34/ HEIGHT(22,16,32),REQ(22,16, 32), 

SMP (22,16 32) SUPP(22, 16,52) , PP 22,16,32), 
DU(22,16,32),DV(22,16,32),DW(22,16, 32) 
COMMON/BL36/AP (22,16, 32) ,RE(22, 16,32) ,AW(22¢16;32) saute 

AS(22,16,32),AF(22,16,32) et eo emer 
SP(22,16,32) ,SU(22, 16,32) Ritce tema 
COMMON/BL37/VIS(22,16,32) 
/CPM(22,16,32),HS2Z(3,2),NHSZ(22,16,32),RESORM 
CALCULATE COEFFICIENTS 
DO 100 K=2,NK 
KP2=K+2 


KP1=K+1 
KM1=K-1 


RD CQ WS WM WM LK 


2 


COND (22.16.32) ,NOD(22.15.37), san 


@ AKX 


Cc AKK 


C xk 


KM2=K-2 

DO 100 J=2,NJ 
JP2Z=J+2 

JP1=J+1 

JM1=J-1 

JIM2=J-2 

DO 100 I=2,NI 
IP2=I+2 

IP1=I+1l 

IM1=I-1 

IM2=I-2 

IF aeeeat IM2=NIM1 
iPeeeiskO. NL) IP2=3 


CENTRAL LENGTH OF THE TEMPERTURE CONTROL VOLUME 


DePl=KE(IP1,J,K,0 
Dale we Ld) kK, 
DAMI=KL(IM1,J,K, 


Bis SHEE S| 


DYJ =YL(I,J_, 


PYMI=YL(L£ Jul, 
Bake =2t{ 1/34 


AAR 


™= 


O4neeai( Ld, Kh 
DZM1=ZL(1I,J,KMIL 


SURFACE LENGT 


DAN=KL 
DXAS=AKL 
DXF=KL 
DAB=AL 


DYF=YL 
By B= 2h 
DYE=YL 
DYW=YL 


DZE=2L 
DZW=ZL 
DZN=ZL 
DZS=2L 


CENTRAL LENGT 


DXAEE=KL 
DRE =KL 
DAW =KL(I_ ,J, 
DAWW=AL 


DYNN=YL 
DYN =YL 
Dio =2E(r,J , 
Brose lil ,JM1, 


DZFF=ZL 
DZF =ZL(1,J,KP 
DZB =ZL(1I,J,K 
DZBB=2ZL(1I,J,KM1, 


DEFINE THE AREA OF THE CONTROL VOLUME 


DXYF=DKF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DKN 
DZXS=DZS*DXS 


VOL=DKI*DYJ*DZK 
VOLDT=VOL/DTIME 


ZXOYN=DZXN/DYN 
ZROYS=DZXKS/DYS 
XYOZF=DKYF/DZF 
XYOZB=DXYB/DZB 


0 
0 
0 
0 
0 
0 
0 
0 


~ 
~~» 
Nee en eee ne” 
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THE STAGGERED CONTROL VOLUME FOR T 


rik 
hy bY 
t NO 
Ci 
ps 


~ = *S 


ODO0 OO00 OO00 


~~ *s 3S 


~ is SS 


= = = ™~ 
= = ~ ~~ 


rH 
Cy 
rg 
[4 
rN ARAN AX 


~~ = 


We 


YZOXE=DYZE/DXE 
YZOXW=DYZW/ DAW 


GN=(R(I,J,K)*DYP1+R(I,JP1,K)*DYJ)/ (DYP1+DYJ 
GS=(R(I,J,K)*DYMI+R(1,JML,K)=Dyd)7 (DYN to 
GE=(R(I,J,K)*DXP1+R(IP1,J,K)*DXI)/(DXP1+DxXI 
GW=(R(I,J,K)*DXM1+R(IM1,J,K)*DXI)/(DXM1+DXI 
GF=(R(I,J,K)*DZP1+R(I,J,KP1)*DZK) /(DZP1+DZK 
GB=(R(I,J,K)*DZM1+R( 1,30 ,KM))*DZK 7 (DZ 
CN=GN*V(I,JP1,K)*DZXN 

CS=GS*V(I,J  ,K)*DZXS 

CE=GE*U(IP1,J,K)*DYZE 

CW=GW*U(I ,J,K)*DYZW 

CF=GF*W(1I,J,KP1)*DXYF 

CB=GB*W(I,J,K *DXYB 
CONDN=1./((1./COND(I,J,K)*DYJ+1./COND(I,JP1,K)*DYP1)/(DYP1+DYyg 
CONDS=1./((1./COND(I,J,K)*DYJ+1./COND(I,JM1 ,K)*DYMI1 )/ (Dimi 
CONDE=1./((1./COND(I,J,K)*DXI+1./COND(IP1,J,K)*DXP1 )/(DXP1+DxXI 
CONDW=1./((1./COND(I,J,K)*DXI+1./COND(IM1,J,K)*DXM1)/(DXM1+DxXI 
CONDF=1./((1./COND(I,J,K)*DZK+1./COND(I,J,KP1)*“DZPl )/( DZP lee 
CONDB=1./((1./COND(I,J,K)*DZK+1./COND(I,J,KMl )*DZM1 )/ (D2 ee 


CONDN1=ZXOYN*CONDN 
CONDS1=ZXOYS*CONDS 
CONDE1=YZOXE*CONDE 
CONDW1=YZOXW*CONDW 
CONDF1=XYOZF*CONDF 
CONDB1=XYOZB*CONDB 


CEP=(ABS (CE )+CE )*DXE/DXI/16. 
CEM=(ABS(CE)-CE)*DXE/DXP1/16. 
CWP= (ABS (CW)+CW)*DXW/DXM1/16. 
CWM=(ABS(CW)-CW)*DXW/DXI/16. 


CNP=(ABS(CN)+CN)*DYN/DYJ/16. 
CNM=(ABS(CN)-CN)*DYN/DYP1/16. 
CSP=(ABS(CS)+CS )*DYS/DYM1/16. 
CSH=(ABS(CS )-—CS)2Dvs/ Dia or 


CFP=(ABS(CF)+CF)*DZF/DZK/16. 
CFM=(ABS(CF )-CF)*DZF/DZP1/16. 
CBP=(ABS(CB)+CB)*DZB/DZM1/16. 
CBM=(ABS (CB) -CB)*DZB/DZK/16. 


AE(I,J,K)=-.5*CE+CEP+CEM* (1 .+DXE/DXEE ) +CWM*DXW/DXE 
AW(I,J,K)= .S*CW+CWM+CWP* (1. +DXW/DXWW ) +CEP*DXE/DXW 
AN(I,J,K)=-.5*CN+CNP+CNM*( 1. +DYN/DYNN)+Csii Dy a! 
AS(I,J,K)= .S*CS+CSM+CSP*(1.+DYS/DYSS)+CHie py 
AF(I,J,K)=-.5*CF+CEP+CEM*( 1 .+DZF/DZEF )+CBM-~DZe, ban 
AB(I,J,K)= .5*CB+CBM+CBP*(1.+DZB/DZBB )+CFP*DZF/DZB 


801 AEE=-CEM*DXE/DXEE 
AEER=AEE*TPD(IP2,J,K)*CPM(IP2,J,K) 
802 CONTINUE 


803 AWW=-CWP*DXW/DXWW 
AWWR=AWWA*TPD (IM2,J,K)*CPM(IM2,J,K) 
804 CONTINUE 


IF (J.LT.NJ) GOTO 805 
ANN=0. 


ANNR=0. 
GOTO 806 
805 ANN=-CNM*DYN/DYNN 
ANNR=ANN*TPD(I,JP2,K)*CPM(I,JP2,K) 
806 CONTINUE 


IF (3.GT.2)) conomecap 
ASS=0. 
ASSR=0. 
GOTO 808 
807 ASS=-CSP*DYS/DYSS 
ASSR=ASS*TPD(I, JM2,K)*CPM(I,JM2,K) 
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808 CONTINUE 


fee Rs LT.NK) GOTO 809 
AFF=0 ? 
AFFR=0. 
GOTO 810 
809 AFF=-CFM*DZF/DZFF 
AFFR=AFFATPD‘{I,J,KP2)*CPM(1I,J,KP2) 
810 CONTINUE 


Paekecr 2) GOrO 811 
ABB=0. 


ABBR=0. 
GOTeNe TZ 
811 ABB=-CBP*DZB/DZBB 
ABBR=ABB*TPD(I,J,KM2)*CPM(1I,J,KM2) 
812 CONTINUE 


THER HE HHH HEE THEE HHH PaaS THEE ES EE HH aa RES eH aa ae Ht 
SHR ET SH He HH HH HHH EH RS RH RH EH aS HH EHH ES 
a> MODIFICATION FOR DECK BOUNDARIES 


900 CONTINUE 
fe Nea Joh EE O.O) GO LOn OOK, 
AWW=0. 
ANWR=O . 0 


901 CONTINUE 
TE (N (NOD (IP1, Me mEOO GOTO 6902 
A 


AEERSO- 0 


902 CONTINUE 
ie WHORE, Jie s0) GOTO 903 
ASS=0 
ASSR=0. ae 


903 CONTINUE 
IF (NOD(T, JP1,K).EQ.0) GOTO 904 
ANN=0 
ANNR=0. "0 


904 CONTINUE 
IF (NOD (TZ, J,KM1).EQ.0) GOTO 905 
ABB=0 
ABBR=O. 0 


905 CONTINUE 
HE: ( eee J,KP1).EQ.0) GOTO 906 
AFF=0. 
AFFR=0. "0 


906 CONTINUE 


C HTT ERT Ee EHH HH eH eH ee ETT 
C HHH HER ET EH a RH BBB Ha a a a HH HH HH HH 
AP(I,J,K)= eae 3 eee IF Leeann Ho, K)tASCI, J.B) 
& PE Td, Ko) As Cl. J eK +REE+AWW+ANN+ASS+AFF+ABB) *CPM(I, a) 


AAD 


& eects etn GCE eGR CCHDaT 
AE(I,J,K)=AE(I,J,K)*CPM(IP1,J,K)+CONDE1 
AW(I,J,K)=AW(I,J,K)*CPM(IM1,J,K)+CONDW1 
AN(I,J,K)=AN(I,J,K)*CPM(I,JP1,K)+CONDN1 
AS(I,J3,K)=AS(I,J,K)*CPM(I,JM1,K)+CONDS1 
AF(L,J,K)=AF(I,J,K)*CPM(I,J,KP1)+CONDF1 
AB(I,J,K)=AB(I,J,K)*CPM(I,J,KM1)+CONDB1 
SP(I,J,K eee eT ae *) 

SU(I,J,K)= ROD(I,J,K)*VOLDT*TOD(I,J,K)*CPM(I,J,K) 
I,J,K)=SU(I,J,K)+AEER+AWWR+tANNR+ASSRtAFFRtABBR 


SU 
100 CONTINUE 
oo TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 
CE AXK RADIGS BIRECTION 
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ce 


500 
C *xkx 


600 
C AAK 


700 


C xk 


300 


C kK 


LES 


Tae 


C *kK 


DO 500 I=2, NI 
DO 500 co 
SP (1,2 K)= SBT, 2 Jk) sas (1, 2,K) 
SP 2 K)aSE ie s -AS(I,2,K) 
SU(I,2,K .2,K) +2. O*AS (1,2, K)*TPD(T, 1,K) 
SP(I,NJ, Aes ae NJ, Lip AN(I NJ, K) 
su I ,NJ,K)=SU(I,NJ,K)+2.*TPD(I,NJP1,K)*AN(I,NJ,R) 


? e 


AN(I,NJ,K)=0. 


hen 


CONTINUE 


€xLIC CONDITIONS 


DO 600 J=2, Es 

DO 600 K=2,N 

SU(2 ,J,K =i ne ea Rese Ss Ao Te 
SU(NI,J,K)=SU(NI,J,K)+AE(NI,J,K)*T(NIPI, ok 
AWCZ J -K)=0 

AE(NI,J,K =0. ; 


CONTINUE 


END OF SPHERE 
DO 700 2 =2, NI 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 300 K=2,NK 

DO 300 J=2, io 

DOsS00 51-25 

AP(I,J,K) CAP (I, Joh) = Sea ie hy) 
CONTINUE 


VOLUME HEAT SOURCE INPUT 


VOLT=0 .0 
DO. LTS -f=2 


DO 113 K=16 
Tena care 
DKI =XL(I 
DYJ =YL r, J 
DZK =ZL(I.J,K 
VOL=DXI ere * 
VOLT=VOLT+VOL 


.EQ.0) GOTO 113 


CONTINUE 

DO lll 1=2,NI 

DO lll J=2,NJ 

DOT LET K=lowiy 

ie (NESZ A See GOTO 111 
DXI =AL(L ,J,K;,000 


DY =v Bae gr neae 


DZK =ZL 
Q=0%H (WokCPOFREOO*TA) 
OL=DXI*DYJI*DZK 

SU(I,J,K) =Su(T. J ,K)+VOL*QQQ/VOLT 

CONTINUE 


RADIATION INTO THE WALL 


DO 310 K=3, NKMI 
DO 310 I=2,N 
Il=(K- 3) *(NI- 1)+I-1 
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SU(I,NJRA,K)=SU(I,NJRA,K)-RWALL(II) 
310 CONTINUE 


CG **x END OF RADIATION 
— SOLVE FOR T 
CALE TRibe2,2,2,NI,NI,NK,T) 
C **** RESET TEMPERATURE AT R=0.0 AND END OF SPHERE 


DO 81 K=1,NKP1 
AVT=0 .0 
DO 82 I=Z,N 
AVT= Suts (PCL, Zoi NI) 
82 CONTINUE 


( 
83 CONTINUE 
81 CONTINUE 


Mal, 
74 CONTINUE 
C *xx FOR SURFACE HEAT EXCHANGE WITH SURROUNDING 


Demet i=2. ie 
DO 84 K=2 
DYJ=YL(1, ae 
m<T NJP1,K) ae ene Ngee) <t  oh pee Nea CCE TINE) / 
& HCOEF+2. OXCOND(I,NJ, K)/DYJ 
eC ae /NJPL, =P meio) © 
GC Rr Nd a 


eer; 3 
84 CONTINUE’ 


C xxx FOR Cr, OCIC CONDITION 
DO 80 J=1,NJP1 


80 CONTINUE 


RETURN 
END 


C 


CG nw x RR KA 


SUBROUTINE CALC 
c Kk* eee rier oa) xsionyveicay csies), 

BPMMON/RA/XC(93) 3 ¥C(93) ZC(93),XS(93), YS(93) ZS er 

& pyyc(93) ,DZZC (93) , DXxS(93) ,DYYS(93) ,DZZS(93) 
COMMON/BL1/DX, aa Ae! VOL, DTIME, VOLDT, THOT, TCOOL ,PI, 
COMMON/BL7/NI ,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 

& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA, NWRP 
COMMON/BL12/ NWRITE,NTAPE ,NTMAXO ,NTREAL, TIME ,SORSUM,ITER 
COMMON/BL14/HCOEF , TINF ,CNT, ABTURB , BTURB , VISL, VISMAX, OCORRT, PM1 , PM2 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4, CONST6 ,NT,UO,H,UGRT, BUOY, 

& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP,TWRITE , TTAPE, TMAX,GC,RAIR 
COMMON/BL22/ICHPB(10) ,NCHPI(10), ,JCHPB (10) , CHP I (10) , KCHPB(10), 

& NCHPK(10) , TCHP(10) ,CPS(10) , CONS (10 
COMMON/BL31/ TOD(22., 16,32),ROD(22,16, 2) TOS 16, 32) me, 


Cc Palersie WON? Ie, 32) VOD(22) 1e ,32) ,WOD(22, 1 
COMMON /BL32/" T(22,16, 32) R(22,16,3 i632 
ienee)) V(o2. Hie ce W(22,16,32) 


ss 
iS c(22, eee ) U2 
COMMON/BL 3/ TPD(22,1 32) PREDG22 Gee PED (226) 32) 
Se @op22 16 32) UPD( 22,16, 32), VED 22016 192) WEDt 22,16, 32) 
COMMON/BL34/ HEIGHT(22,16,32),REQ(22 6432) 4 
& SMP(22,16,32),SMPP(22,16,32), SBC 6,32), 
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C kkx 


C kK 


C KKK 


Cc AKK 


U(22,16,32),DV(22,16,32) ,DW(22,16,32) 
COMMON /BL36/AP( 22" ioe ely AEC 22 aie aBUBG 16,32),AN(22,16,32), 
AS(22,16,32), AF(22,16,32), AB 22 eee 
SP(22,16,32),SU(22,16,32) Ri(2e, ieee 


COMMON /BL37/VIS (22, 16,32) COND (22) mar Bh, NOD(22,16 32) 4 RWALL (560) 
M(22,16,32) ,HS2Z(3,2),NHSZ(22,16,32),RESORM(93) 
COMMON /BL39/ALEW. en CONSRA, PCURM1 , PSOUTH, QCORR, Beaeon 


CALCULATE COEFFICIENTS 


DOMINGO n=2 aK 
KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO 100 J=2,NJ 
JP2=J+2 

JP1=J+1 

JM1=J-1 

JIM2=J-2 

DO 100 I=2,NI 
IP2=I+2 

IP1=I+1 

IM1=I-1 

IM2=I-2 

IF is .EQ.2) IM2=NIM1 
IF (I.EO.NI) IP2=3 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


DXP1=AL 


DAI =XL(I 





DXM1=XL 


DYP1=YL 
DYJ =YL 
DYM1=YL 


DZP1=ZL 
DZK =ZL 
DZM1=ZL 


SURFACE LENGT 


DXN=AL 
DXS=AL 
DAF=XL 
DXAB=AL 


DYF=YL 
DYB=YL 
DYE=YL 


DZE=ZL 
DZW=2L 
DZN=2L 
DZS=2L 


DXAEE=AL 
DAE =XL 
DAW =AL 
DAWW=XL 


DYNN=YL 
DYN =YL 
DYS 
DYSS=YL 
DZFF=2L 
DZF =ZL 
DZB =ZL 
DZBB=2L 


DEP ENE 


I 
i 
it 
i 
I 
DYW=YL(I 
I 
if 
i 
4 


=YL(I 


1 


EEA, a Ke 


ri 


Pe oe 


I 7: 
I,J, 
I un! 
eel 
OIG de 
Beh aya, 


a al 


a 
, 
c 


x 
ie / 
K,Q, 
Ke c 


0 
Ko 
0 
0 
0 
0 
0 
0 
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DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DXI*DYJ*D2ZK 
VOLDT=VOL/DTIME 


ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXKYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/ DKW 


GN=(R(I,J,K *DYP1+R ioe (Dye lt Dy) 
GS=(R(I,J,K)*DYM1+R(1I,JM1,K)*DYJ)/(DYM1+DYJ 
GE=(R(I,J,K)*DXP1+R(IP1,J,K)*DXI)/(DXP1+DXI 
GW=(R(I,J,K)*DXM1+R(IM1,J,K)*DXI) /(DKXM1+DXI 
GF=(R(I,J,K)*DZP1+R(1I,J,KP1)*DZK) /(DZP1+DZK 
GB=(R(1I,J,K)*DZM1+R(1I,J,KM1)*DZK) / (DZM1+DZK 
CN=GN*V(I,JP1,K)*DZXN 

CS=GS*V(I,J ,K)*DZXS 

CE=GE*U(IP1,J,K)*DYZE 

CW=GW*U(I 3 ,J,K)*DYZW 

CF=GF*W(1I,J,KP1)*DXYF 

CB=GB*W(1I,J,K *ADXYB 
CONDN=1./((1./COND(I,J,K)*DYJ+1./COND(I,JP1,K)*DYP1)/(DYP1+DYJ 
Gop s—1-/()-) COND( 1 3K) “DY Jt1./COND( 1, JM1,K)*DYM1 ) / ( DYM1+DYJ 
CONDE=1./((1./COND(I,J,K)*DKXI+1./COND(IP1,J,K)*DXP1)/(DXP1+DXI 
CONDW=1./((1./COND(I,J,K)*DXI+1./COND(IM1,J,K)*DXM1) /(DKM1+DXI 
CONDF=1./((1./COND(I,J,K)*DZK+1./COND(I,J,KP1)*DZP1) /(DZP1+DZK 
CONDB=1./((1./COND(L,J,K)*DZK+1./COND(I,J,KM1)*DZM1 ) / (DZM1+DZK 
CONDN1=ZXOYN*CONDN*ALEW 

CONDS1=ZX0OYS*CONDS*ALEW 

CONDE1=YZOXE*CONDE*ALEW 

CONDW1=YZOXW*CONDW*ALEW 

CONDF1=XYOZF*CONDF*ALEW 

CONDB1=XYOZB*CONDB*ALEW 

CEP=(ABS(CE)+CE)*DXE/DXKI/16. 

CEM=(ABS(CE)-CE)*DXE/DXP1/16. 

CWP=(ABS (CW )+CW)*DXW/DXM1/16. 

CWM=(ABS (CW) -CW)*DXW/DXI/16. 

CNP=(ABS(CN)+CN)*DYN/DYJ/16. 

CNM=(ABS(CN)-CN)*DYN/DYP1/16. 

CSP=(ABS(CS)+CS)*DYS/DYM1/16. 

CSM=(ABS(CS)-CS)*DYS/DYJ/16. 

CFP=(ABS(CF)+CF)*DZF/DZK/16. 

CFM=(ABS(CF)-CF)*DZF/DZP1/16. 

CBP=(ABS(CB)+CB)*DZB/DZM1/16. 

CBM=(ABS(CB)-CB)*DZB/DZK/16. 

AE(I,J,K)=-.5*CE+CEP+CEM* (1.+DXE/DXEE )+CWM*DXW/DXE 

AW(I,J,K)= .S*CW+CWM+CWP* (1.+DXW/DXWW )+CEP*DXE/DXW 
AN(I,J,K)=-.5*CN+CNP+CNM*(1.+DYN/DYNN )+CSM*DYS /DYN 

AS(I,J,K)= .5*CS+CSM+CSP*(1.+DYS/DYSS )+CNP*DYN/DYS 
AF(I,J,K)=-.5*CF+CFP+CFM* (1.+DZF/DZFF )+CBM*DZB/DZF 

AB(I,J,K)= .5*CB+CBM+CBP*(1.+DZB/DZBB )+CFP*DZF/DZB 


801 AEE=-CEM*DXE/DXEE 
AEER=AEE*CPD(IP2,J,K) 
802 CONTINUE 


803 AWW=-CWP*DXW/DXWW 
AWWR=AWW*CPD(IM2,J,K) 
804 CONTINUE 
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AAA 


IF (J.LT.NJ) GOTO 805 
ANN=0. 
ANNR=0. 
GOTO 806 
805 ANN=-CNM*DYN/DYNN 
ANNR=ANN*CPD(I, JP2,K) 
806 CONTINUE 


ihc Cue mGonorco7 
ASS=0 
ASSR=0. 
GOTO 808 
807 ASS=-CSP*DYS/DYSS 
ASSR=ASS*CPD(I, JM2,K) 
808 CONTINUE 


IF (K.LT.NK) GOTO 809 
AFF=0. 


AFFR=0. 
GOTO 810 
809 AFF=-CFM*DZF/DZFF 
AFFR=AFF*CPD(1I,J,KP2) 
810 CONTINUE 


PE OXK GT 2) “Gone cid 
ABB=0. 


ABBR=0. 
Goreme le 
811 ABB=-CBP*DZB/DZBB 
ABBR=ABB*CPD(1I,J,KM2) 
812 CONTINUE 


PHTTHHT RTH HHH TH THREE TH HH HES TT HHT 
HITT OHHAATAA AHA TE Ha 
KAX MODIFICATION FOR DECK BOUNDARIES 


900 CONTINUE 
ie eS J°h). 20.0) —GOles oor 
AWW=0 
AWWR=0. 0 


901 CONTINUE 
F (NOD(IPL, J,K).EQ.0) GOTO 902 
AEES 
AEER=O. 0 


902 CONTINUE 
F {NOD(T, JM1,K).EQ.0) GOTO 903 
ASS O. 
ASSR= Ae 0 
903 CONTINUE 
IF (NOD(I,JP1,K).EQ.0) GOTO 904 
ANNR=0 .0 


904 CONTINUE 
re ee J,KM1).EQ.0) GOTOsZO5 
ABB= 
ABBR=O. 0 


905 CONTINUE 
IF (NOD( 1,0, KP1) 280.0) GoLeecoc 
AFF=0.0 
AFFR=0.0 

906 CONTINUE 


fata torts tare SShas CHS AS SHH aS PST HR STH a SES SHS HSH SSS HS TF 
ietor pope tte Te ae ae FP PTR Te SEAR RE SB ES ET ot 
AP(I,J,K)= nee Pole ae ae ie Pion ,o.,K) asic 
& AF(I,J,K)+AB(I,J,K +AEE+AWW+ANN+ASS+AFF+ABB) 
+CONDE1+CONDW1+CONDN1+CONDS1+CONDF1+CONDB1 
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AE(I,J,K)=AE(I,J,K)+CONDE1 
AW(I,J,K)=AW(I,J,K)+CONDW1 
AN(I,J,K)=AN(I,J,K)+CONDN1 
AS(I,J,K)=AS(1I,J3,K)+CONDS1 
AF(I,J,K)=AF(I,J,K)+CONDF1 
AB(I,J,K)=AB(I,J,K)+CONDB1 

SP(I,J,K oe ae 

SU(I,J,K)= ROD(I,J,K)*VOLDTATOD(I,J,K) 

I,J,K)=SU(L,J,K)+AEER+AWWR+ANNR+ASSR+AFFR+ABBR 


aU 
100 CONTINUE 
C xk* TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 


c 
C xxx RADIUS DIRECTION 


DO 500 I=2, NI 
DO 500 K=2,N 
EC SP (1,2 a SE(t, 2,K)+AS(I,2,K) 
rok md ey me K)- AS(I,2,K) 
a I,2,K)=SU(I,2,K)+2.0*AS(I,2,K)*CPD(I,1,K) 
SP(I,NJ, iz get, NJ iis I,NJ,K) 
SU(I,NJ,K I ,NJ,K)+2.*CPD(I,NJP1,K)*AN(I,NJ,K) 
AS I, 2, K)= 
5,K)=0. 


AN(I 
500 CONTINUE 
C xX CYLIC CONDITIONS 


DO 600 J=2,NJ 
DO 600 K=2,NK 
SUC Zo 8 eet ro K ea ek ps a 
SU(NI,J,K)=SU(NI,J,K)+AE(NI,J,K)*C(NIP1, AL 
AW(2 ,J,K)=0.0 
Ae, K=O 20 

600 CONTINUE 


a 
(Ol 


C RK END OF SPHERE 
DO 700 I=2,NI 
DO 700 J=2,NJ 
SP(1,3,2)=SP(1,J,2)+AB(I,J,2) 
SP(I,J,NK)=SP(I,J3,NK)+AF(I,J,NK) 
AB(I,J,2)=0. 
AF(I,J,NK)=0. 

700 CONTINUE 


C xxk ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 300 K=2 NK 
DO 300 J=2,N 
DO 300 I=2 
APG sp Ky SAP(L, J,K)-SP(I,J,K) 
300 CONTINUE 


C *** VOLUME MASS SOURCE INPUT 


VOLT=0.0 
DO 113 I=2,NI 
DO 113 J=2,NJ 
DO 113 K=16,17 
IF (NHSZ(I,J,K).EQ.0) GOTO 113 
DRI =xXL(I .J,K.0, 
Devt «=~ OK «00 
DZK =ZL(1,3,K 
VOL=DXI*DYJ*DZK*H*H*H 
VOLT=VOLT+VOL 

113 CONTINUE 


DO 1lli I=2,NI 
DO lll J=2 /NJ 


18] 


DO 111 K=16, 

IF (NHSZ(I,.1 we BO-0) GOTO lia 

DXI =XL(I | ,J,K,0,0 

Olga 0, 0 

DZ = 2 0 

0095 =O7H/ (tasepOxREOOATA) 

Or , 

OMS = “QUS*H/ (UO*RHOO) 

VOL=DXI*DYJI*DZK 

SU(I,J,K)=SU(I,J,K)+VOL*QMS/VOLT 
111 CONTINUE 


Cran SOLVE FOR C 
CALE TRID (27 2A27Ni NOM NiGaey 
C ****X RESET CONCENTRATION AT R=0.0 AND END OF SPHERE 


DO 81 K=1,NKP1 
AVT=0.0 
DOeece 1-2 NI 
AVT=AVT+(C(I,2,K)/NIM1) 
82 CONTINUE 
DO 83 I=1,NIP1 
Gli aare 
83 CONTINUE 
81 CONTINUE 


74 CONTINUE 
C xxx FOR SURFACE MASS EXCHANGE WITH SURROUNDING 


DO 84 I=2,NI 

DO 84 K=2,NK 

C(I,NJP1,K)=C(I,NJ,K) 
84 CONTINUE 


C xx* FOR GYbiCc CONDITION 


DO 80 J=1,NJP1 

DO 80 K=1,NKP1 

Sie ae K)= Cll a7) 
C(NIP1,J,K)=C(2,3,K) 
80 CONTINUE 


RETURN 
END 

Cc 

C x x AK x x x x 
SUBROUTINE CALU 

Cc KARKKKKKKKRKKKRKRRKAKAKKKKKKRKKKKKKKRAKRKRAKRKRAKKKRAAKAAKRAARKAAKKAKKK 


COMMON/R4/XC(93) , 7C(93), ZC(93),XS(93), ,¥S(93) LES) 

a XXC(93) ,DYYC(93) ,DZZC(93) , DXXS(93) , DYYS (93), DZZS (93) 
COMMON/BL1/DX,DY,DZ,VOL,DTIME,VOLDT, THOT, TCOOL , PI, 
COMMON/BL7/NI,NIP1,NIM1.NJ,NJP1,NJM1,NK,NKP1,NRM1 

& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA, NWRP 
COMMON/BL12/ NWRITE ,NTAPE, NTMAXO ,NTREAL, TIME, SORSUM, ITER 
COMMON/BL14/HCOEF, TINF, CNT ,ABTURB , BTURB, VISL, VISMAX, QCORRT, PM1 , PM2 
COMMON/BL16/ CONST1,CONST2.CONST3 , CONST4 ,, CONST6 ,NT, UO ,H, UGRT, BUOY, 

& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP, TWRITE , TTAPE, TMAX,GC,RAIR 

COMMON/BL20/S1G11(22, 16, aoe ‘SIGI2(220ey sah SIG2Z2022) lemer 

SIG13(22.16,32),S1G23(22,16,32) -stGgeus2 eee 

COMMON/BL22/ICHPB(10) ,NCHPI(10) , JCHPB(10),NCHPJ(10),KCHPB(10), 

NCHPK(10) , TCHP(10); cPs(10), “CONS (10) 

COMMON/BL31/ TOD(22,16,32) ,ROD(22,16 32); ,POD(22,16, 32) 

& ,COD(22,16,32) ,UOD(22 16,32) von 2200 32), WOD(22 16,32) 
COMMON/BL32/ T(22,16, oe R( 22) tare ) P(22.16 32) 

5 ,C(22,16,32) ,U(22,16,32) ,V(22, 16 ee 


§ 
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C kk 


C kk 


C xk 


2 WQ QR» QM 


COMMON /BL33/ TPD(22,16, i22)4 PEP Dt 22 ie, 132) ,PPD( ay 
CPp(22,16,32),UPD(22,16, 32), VED De liG 132) 
COMMON/BL34/ HEIGHT(22,16.32),REQ(22,16, 32 2 
aU ae (23 16,32),SMPP(22,16,32),PP(22,16,32), 
2,16,32),DV(22,16, 32) ,DW(22,16, 32) 


P5( 22,16, 32) 


Wie2 
COMMON/BES6/P( 22" 16, Par (ARNG? 16, 32) ,AW(22,16,32),AN(22,16,32), 


Mev ooo ear fa 16 32) , AB 22, 16,32), 
Bigeenlcn ee sun oe, le, 32) R1(22,16,32 

COMMON /B134/ acs (22 oe 3203 ,COND (22,16, 33) NOD(22,16,3 
/CPM(22,16,32),HSZ(3,2) ,NHSZ(22,16, 32) , RESORM(9 


CALCULATE COEFFICIENTS 


DO 100 K=2,NK 
KP2=K+2 
Ret =Kal 
KM1L=K-1 
KM2=K-2 
DO 100 J=2,NJ 
JP2=J+2 
JPL=Jt+1 
JM1l=J-1 
JM2=J-2 


IM1=NI 


CENTRAL LENGT F THE SCALE CONTROL VOLUME 


Nee ee” 


~~ ~s “s 
=—=_ «Ss “% 


H 
K 
K 
K 
K 
K 
K 


Ne eee” 


~ ~~ ~~ 
“~ ~ ~~ 


fe 
~ 


DZK =2L 
DZ2M1=2L 


SURFACE LENGT 


DXN=XKL 
DAS=KL 
DXAF=XKL 
DXAB=XKL 


DYF=YL 
DYB=YL 
DYE=YL 
DYW=YL 


DZE=ZL 
DZW=2ZL 
DZN=ZL 
DZS=2L 


CENTRAL LENGT 


DXEE=XL(IP2,J,K 
PKG nn ied, J, 
DKW =XL(I J, 
DXWW=XL(IM1,J, 
2 
1 


BRR BRR PRE O 


—_ «= 


Bake <2 


Nn ee” 


KE 


DPR BHR PPE es . 


THE CONTROL VOLUME 


eH 
~ 
Cy 
tJ 
[_ 
td~ ~ 
~~ is ~~ 
~~ is Ss Ww 


bettie BHHHH Heh 
rac ee AN 
RARAR KAR FH 


O NNMRFPKE FPRWW WWNhh O 
POPORIN FMRReR 'T} wALAL A WH ene SOT OOo OOO OOO 


~~ ss Ss 


THE STAGGERED CONTROL VOLUME FOR U 


DYNN=YL(I,JP2, 
DYN =YL(I,JP1, 
DYS =YL(I[,J_, 
DYSo-YL(1,JM1, 
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oN 


RWALL(560) 


C xx 


C AAX 


DZFF=ZL(I,J,KP2,1 
DZF =ZL(1 J hee 
DZB =ZL(1,3,40,1 
DZBB=ZL(I,J, "KML, iL 


DEFINE THE AREA O 


DAYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DKN 
D42xS=D2Z5-025 


VOL=DKI*DYJ*DZK 
VOLDT=VOL/DTINE 


ZXOYN=DZXN/ DYN 
ZAOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/DXW 


/ 
c 
f 
f 


3 
3 
3 
3 
F 


THE CONTROL VOLUME 


vo SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES AND FLUX ON THR eSuUREAGeoe 





GNE=SILIN(R(I ,JP1,K),R(I ,J,K),DYP1,DYJ)*V({I ,JP1,K 
GNW=SILIN(RCIMI1, JPL, K),R(IM1,J,K) DYPI Bid) sli roel K 
GSE=SILIN(R(I ,JM1,K),R(1 ,J,K) DYMip bis od 1 
GSW=SILIN(RCUIMI1, ,JM1, K),RCUIM1,J,K) ,DYMI Dia) a eee 
GE =SILIN(R itera R(I ,J,K),DXER Deb aU bela 
GP>=SlELE VR Ties or I ,J,K),DKW | Dike eek ade K 

GW =SILIN(R(IN2Z,J,K EM Gd 7 /DXWW, DXW)*UCIM1, ay K 
GFE=SILIN(R(T we RCI ,J,K),DZP1, 02K) Tee 
GFW=SILIN(R(IM1,J,KP1),R(IM1,J,K) ,BZPl DZone iJ, KP1 
GBE=SILIN(R(I ,J,KM1 UR I ,J3,K),DZM1  DZK) Wie ee 
GBY=SILIN(R(IM1,J,KM1 ’R IM1,J,K),Dé2Ml  D2ZkK) Wie on K 


Segue Coecrntoee 
CW=0 ..5*(GP+GW) *DYZW 


Bee CeCe ME eee 


CS=SILIN(GSE,GSW,DXE ,DXW) *DZXS 
Gr= See /GFW,DXE ,DXW)*DXYF 
CB=SILIN(GBE,GBW,DXE,DXW)*DXYB 
VISE=VIS(I ,J, s 
VISW=VIS(IM1, ie s 
VISN= VES ,IP1,K)+VIS(I ,J,K)+ 

& VIS i, ee K)+VIS(IM1,J3,K))/4.0 
VISS= S(t 'JIM1,K)+VIS(I ,J Roe 

& VIS(IM1, “IML, K +VIS(IM1,J3,K))/4.0 
VISF= VES! ,0,KP1)+VIS(I ,J.K)+ 

& VIS eh ae "KP1)+VIS IM] J, Koy 20 
VISB= vist J, KML)+VIS(L | 0 Ree 

& VS (Ee "J. KM1S+VIS IM1,J3,K))/4.0 


VISN1=ZXOYN*VISN 
VISS1=ZxXOYS*VISS 
VISEL=YZOXE*VISE 
VISW1=YZOXW*VI SW 
VISF1=XYOZF*VISF 
VISB1=XYOZB*VISB 


CEP=(ABS(CE)+CE)*DKE/DXI/16. 
CEM=( ABS({ CE )—CE *DXE/DXP1/16. 
CWP=(ABS (CW)+CW) *DXW/DXM1/16. 
CWM=(ABS (CW) -CW) *DXW/DXI/16. 
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ADYN/DYJ/16. 
Dit DY iw Lor 
ayo; DUM tor. 
Dio Dy) Wor 


ADZF/DZK/16. 
ADZEF/DZP1/16. 
CB)4Cs )“DZB/D2ZM1/ le. 
CB)-CB)*DZB/DZK/16. 
=0 ChtChrroni=(1.+DXe/ DEE 


i 
~ S*CW+CWM+CWP*(1.4+DXW/ DAWW 
moe CN+CHP+CNM~(1 .+DyNy DYNN 
1 
i: 
1 


CN )+CN 
CNy ch 
CSCS 
Ca) =CS 


cee 
Cr Cr 


+CWM*DXW/DXE+VISEL1 
+CEP*DXE/DXW+VISW1 
+CSM*DYS/DYN+VISN1 
+CNP*DYN/DYS+VISS1 
+CBM*DZB/DZF+VISF1 
+CFP*DZF/DZB+VISB1 


- 5*CS+CSM+CSP*(1.+DYS/DYSS 
~S*CF+CFP+CEM*(1.4+DZF/DZFF 
.5*CB+CBM+CBP*(1.+DZB/DZBB 


801 


802 
803 


804 


AEE=-CEM*DXE/DXEE 
AEER=AEE*UPD(IP2,J,K) 
CONTINUE 


AWW=- CWP*DXW/DXWW 
AWWR=AWW*UPD (IM2,J,K) 
CONTINUE 


IF (J. LT.NJ) GOTO 805 
ANN=0 


ANNR=0. 

GOTO 806 
ANN=-CNM*DYN/DYNN 
ANNR=ANN*UPD (I ,JP2,K) 
CONTINUE 


Mpa@deGr.2) GOTO 607 
ASS=0. 


ASSR=0. 

GOTO 808 
ASS=-CSP*DYS/DYSS 
ASSR=ASS*UPD(I,JM2,K) 
CONTINUE 


IF (K.LT.NK) GOTO 809 
AFF=0. 

AFFR=0. 

GOTO 810 
AFF=-CFM*DZF/DZFF 
AFFR=AFF*UPD(I,J,KP2) 
CONTINUE 


Mi KeGr.2) GOTO 811 
ABB=0. 
ABBR=0. 
GOTO 812 
811 ABB=-CBP*DZB/DZBB 
ABBR=ABB*UPD(I,J,KM2) 
812 CONTINUE 


805 
806 


807 
808 


809 
810 


C HHT RTH H HHH RET HERR REET E REHEAT H HEH EHH HE HH 
C HEHEHE EHHEHREERR SH ee em RG n aetna wen re 
C *** MODIFICATION FOR DECK BOUNDARIE 


900 CONTINUE 
IF (NOD(IM2,J,K).EQ.0) GOTO 901 
AWW=0 .0 
AWWR=0.0 

901 CONTINUE 
IF (NOD(IP1,J,K).EQ.0) GOTO 902 
AEE=0.0 
AEER=0.0 


902 CONTINUE 
IF. (NoD(z, ,JM1,K).EQ.0) GOTO 903 
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ASSR=0.0 


903 CONTINUE 
IF (NOD (TZ, JP1,K).EQ.0) GOTO 904 
ANN=0 
ANNR=0- 0 
904 CONTINUE 
IF (NOD(I,J,KM1).EQ.0) GOTO 905 
ABB=0.0 


ABBR=0.0 

905 CONTINUE 
IF (NOD(I,J,KP1).EQ.0) GOTO 906 
AFF=0 .0 
AFFR=0.0 


906 CONTINUE 
C FPHEHHHRA RHE HHH THT HEE R RESET EEE EH PEE ae ee eee ee ete 
C FAAHHHRRHRHHRREHHRRR HRA T EHH ERR Hae ee eee ee 


C xxx SU FROM NORMAL STRESS 


RE=(SIG11I(I ,J,K)-(UCIP1,J,K)-U(1 2K) )4ViSEy Daa ae 
RW=(SIGL1I(IM1,J,K)-(U(I  ,J,K)~U(IM1,J,K) )*VISW/DXW) *DYZW 
RN=(SIG12(I,JP1,K)<-(U(I,JP1,K)-U(I,J  ,K))*VISN/DYN)*DZXN 
RS=(SIG12(I,J ,K)<(U(I,J ,K)-U(1,JM1,K) )*VISS/DYs)- Bana 
RF=(SIGIS(1,J,KPL)=(U( tod Kel) Uae es *VISF/DZF ) *DXYF 
RB=(SIG13(1I,J,K = Ui Leroi “U(1I,J KMD) )“V1ISB/ 02a) ee 
C xxx SU FROM CURVED STRESSES AND AGCELERAGT#eIls 

AVG12=0. oe aa ee oe, pijssrei3 (2: Ho 
AVG13=0.5*(SIG13(I,J, Ae Tol Gls (ie 

AVG22= =SILIN(S1G22(1,4 ae siGae ae Ua eee) 
AVGSS—cLETIN SECSS tie, K ,oLG33 (IML, J Kj Dae bay 


AU1=U(I,J,K) 
AUZ= BILIN(V(I pel, KR) VAL ,J,R) 7B bree 
Nay ‘JP1, ‘K iV PME oes /DYI, DYJ, DXE,DXW) 
soe ore It ale KP1 WL ae K /DZK, DZK, 
W(IM1,J,KP1 W eee hy ‘K Dake ‘DZK, DXE , DKW) 


” esting 


ARU12=AR*AU1*AUZ2 
ARU13=AR*AU1*AU3 
ARU22=AR*AU2*AU2 
ARU33=AR*AU3*AU3 


RRY=(AVG12-ARU12 ) *DZK* 

RRZ=(AVG13-ARU13 ) *DYJ*(DXF-DXB 

RRX=(AVG22-ARU22 ) *DZK* (DYE-DYW) + 
& (AVG33-ARU33 ) *DYJ* (DZE-DZW 


AP(I,J,K)=AE(I,J i eae aa ,J,K)+AS(I,J,R) 
& +AF (I,J, K)+AB(I,J,K)+AEE+AWW+ANN+ASS+AFF+ABB 

ce Pi Da L Jon ee SURE aly /K) SOE) / (DEN DEE a 
Sui I 3 {ROD I, 2,K)*DXW+ROD(IM1,J,K)*DXE) / (DXW+DXE) *VOLDT 

D 
SU(I,J,K)=SU(1I,J,K)+DYJADZK*(P(IM1,J,K)-P(1I,J,K)) 
+AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
+RE-RW+RN-RS+RF-RB+RRY+RRZ-RRX 
&- ee a /J,K)-REO(I,J K)) spe cos ca 
J,K)-REQ(IM1 ,J,K))*DXE*COS (XC mi ) / (DKW+DXE ) *V 

100 CONTINUE 


Ca TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 


c 
C xxx RADIUS DIRECTION 


DO 500 K=2, NK 
DO 500 M251 

ce SP(1,2 JK Ss(t, 2 a Si 
SP(I,2,K)=SP(I,2,K)-AS 


DXAN=-DXS 








& 


7 


PI 
(208) 
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Sleek =cUK Io kh) +2 0700), 1, a Pe) 

SP(I,NJ, oo 'K)-AN(I,NJ,K 

AN I, NJ K)=0 

AS(I,2,K)=0. 
500 CONTINUE 


~~ CYLIC CONDITION 


DO 502 K=2, 

DO 502 J=2, 
pf =SUK2 J, ee i” ns 5 Zs sa es a 
,K)=SU(NI,J,K)+AE(NI,J,K)*U(NIPL1, ok 
,K)=0.0 

AE(NI,J,K)=0.0 

502 CONTINUE 


eS nn% FRONT AND BACK WALLS 


DO 600 I=2,NI 
DO 600 J=2,NJ 


C xx SLIP WALLS 
er fae) = ee ,2)4RB (I aD) 
P(I,J,NK)=SP(I,J,NK)+AF(I,J,NK) 
AF(I,J,NK)=0. 
An J. 2-0. 
600 CONTINUE 


IF (NCHIP. taka nop, GOTO S105 
c Hanan dunia nda da HHHRE THER THREE THES EHR HERES RASHES 
C FHA AHHRT THERES HHR ATH ER SERRE a ee 
ee>>* MODIFICATION FOR DECK BOUNDARIES 


DO 101 N=1,NCHIP 
IB=ICHPB(N 
IE=IB+NCHPI(N)-1 
IBM1=IB-1 
IEP1=IE+1 
JB=JCHPB (N) 
JE=JB+NCHPJ(N)-1 
JBM1=JB-1 
JEPI=JE+1 
KB=KCHPB(N) 
KE=KB+NCHPK(N) -1 
KBM1=KB-1 
KEP1=KEt+1 


DOB02 J=JB,JE-1 
DO 102 K=KB,KE-1 
pace ,J3,K)=0.0 
AW IEP1,J,K 0.0 


102 CONTINUE 


DOP 10s. 1=015, 18 

DO 103 K=KB,KE- 

ae pe lie is =SP(r, JBM1,K)-AN(I,JBM1 ,K) 
AN(I,JBM1,K)= 


Sr (l,u8,K ce 50% 
Rehos ,«)=0.0 
103 CONTINUE 


DO 106 I=IB,IE 

DO 106 J=JB,JE- 

See: ate es =SP(r, J,KBM1)-AF(I,J,KBM1) 
Abele ) KEM 


Fa one eee 
BS Ghee ) Onc 
106 CONTINUE 
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ANA 


xkk FOR THE CELLS INSIDE OF THE DECKS 


DO 104 I=IB,IE 

DO 104 J=JB,JE-1 
DO 104 K=KB,KE-1 
ae ae =—12 0520 


AW tT dK )=03 
AE(I,J,K)=0. 
AS(I,J,K)=0. 
AN(I,J,K)= 
SU(I,J,K)= 


104 CONTINUE 
101 CONTINUE 
LOS CON TINUE 


Tae ar at HH ET EH ET EE EE EE HE HS 
HHT HHHA HHH T AARP T HRP T HHH eT He ae eee 


ARK ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
DO 301 K=2,NK 


kkk SOLVE FOR U 
CALL TRID (2,2,2,NI,NJ,NK,U) 


DO Te r=2 ened 

DO 74 J=2,NJP1 
Us ee ee 
U(I,J,NKP1)=U(I,J,NK) 
74 CONTINUE 


DO 79 I=1,NIP1 
DO 79 K=1.NKP1 
U(I,1,K)=U(T,2,K) 
79 CONTINUE 


IF (NCHIP.£Q0.0) GOTO 112 
HHEHHHHHEHEHHEHRHHHEEHEREEHE EHH HE HERES RHA HHEHEHHE HEHEHE HHH 
HH Ae eae A He a a a a a a 
xX RESET THE VELOCITY INSIDE OF DECK 


DO 110 N=1,NCHIP 

IB=ICHPB(N 

IE=IB+NCHPI(N)-1 

JB=JCHPB(N) 

JE=JB+NCHPJ(N)-1 

KB=KCHPB(N) 

KE=KB+NCHPK(N)-1 

DO 108 I=IB,IE 

DO 108 J=JB,JE-1 

DO 108 K=KB,KE-1 

iC ars ee 
108 CONTINUE 
110 CONTINUE 
112 CONTINUE 
HHEHHHHHHEHHHHHHHHHHEFHHHHHSHHHEHHHHHHHEEE HEHEHE 
HHHHHHFHHHHRHHHSHHHEHEESHHHEHE EH RHEHEHRRHEESHHHHEHRRHHHREH SHEE 


RETURN 
END 
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an 


C AAR 


C xxx 


RARRAKRA n RR nx x RAR “a xn AR RAR RAARKRR 


SUBROUTINE CALV 
KARA KKKKAKKAKKKKAKKAKKKAKAKKAKKERARARKKRAKAKAKKRAAKARKRKKKKKAK AK KK 


4, COMMON / R4/ XC (93) , VOCs eee oa mxsidos)) Vs 93), 25( Bl: 
c(93) ,Dy¥c(93) ,DzZzc(93) , DKKS (93), ,DYYS 93) ,DZZS(93) 
* COMMON /BLIV Dx DY,DZ,VOL,DTIME , VOLDT, THOT, TCO 
COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1, ae 
& ,NIP2,NIP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 
COMMON/BL12/ NWRITE,NTAPE,NTMAXO ,NTREAL, TIME, SORSUM, ITER 
COMMON/BL16/ CONST1 , CONST2 , CONST3 , CONST4 , CONST6 ,NT, UO,H, UGRT, BUOY, 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP, TWRITE, TTAPE, TMAX,GC, RAIR 
COMMON/SL20/STG11 (22. 16, 32), 51G12(22, 16, 33), omic 2 gee 32 ) 


iS Pong) Ie 32) Sie2s( 22a om) sicoai2e ic, 35% 
COMMON /BL22/ICHPB(10 CHP I (10); JCHPB(10) , NCHPI (10), KCHPB(10), 

& ICHPK(10), TCHP(10) ,CPS(10) ,CONS(10) 
COMMON /BL31/ TOM lGs 22) ROD(22, lor ae) POD (22 18, 32) 

& ,COD(22,16,32) ,UOD(22.16,32), VOD( 22,103 Peon e2 eles) 
COMMON /BL32/° Tie ceen ee eR (ee. Io se) el 22nlG, 32) 

fc Si? le Poe eee A BV ecm wile lapse) 
COMMON/BL33/_ TPD(22,16, 22) Seen oeF ee oe 

& Rapp ilGme IED 22) le G2) VPD(22 1642) WED(22, 16,32) 
COMMON/BL34/ HEIGHT(22,16,32),REOQ(22,16,32), 

eS SMP(22,16,32), SUPP PDTC Se EPP (22 116,32), 

S mune Gy So) vy 2e) leans?) DW(22 16,32) 
COMMON/BL36/AP(22,16, 32), ,AE(22,16, setae (22,16 ,32) ,AN(22,16,32) 

e MGW 1G eh e2) 16 32) 2B( 22,1642). 

eS Beenie, 32 mesuiiee, he 32) RI(22 16,32) 
COMMON/BL37/ VIS(22,16, 333 -COND(22,16,32) ,NOD(22,16,32) , RWALL(560) 

e /CPM(22,16,32),HSZ(3,2) ,NHSZ(22,16,32) , RESORM(93) 





CALCULATE COEFFICIENTS 
DO 100 K=2,NK 
KP2=K+2 
KP1=K+1 
KM1=K-1 
KM2=K-2 
DO 100 J=3,NJ 
JP2=J3+2 
JP1=J3+1 
JM1=J-1 
JM2=J-2 
DO 100 I=2,NI 
IP2=I+2 
IP1=I+1 
IM1=I-1 
IM2=I-2 
IF - .EQ.2) IM2=NIM1 
IF (I.EO.NI) IP2=3 
CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 
DRel=xh (lel. ,K,2,0 
Pie od KZ, 0 
DXM1=XL(IM1,J3,K,2,0 
DYP1=YL(I,JP1,K,2,0 
Daeawil 3 ,K,2,0 
DYM1=YL(I,JM1,K,2,0 
PZol=26(1 3, KP1)2,0 
pare-2ei(1.g,Kk ,2,0 
DZM1=ZL(1I,J,KM1,2,0 
SURFACE LENGTH OF THE CONTROL VOLUME 


H 0 
ee pre L, ay Lae 
DKS=KL(1I,J ae 
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C xkk 


Cc aK 


C kkk 


DXF= ae 
DAB=XL 


Ty 
MW 
DYF=YL(TI 
Ds = vis 
DYE=YL(T 
DYW=YL(I 
DZE=2L(I 
DZW=ZL( I 
DZN=ZL( I 
DZs=2i 
THE STAGGERED CONTROL VOLUME 
DABE SKE TPZ 7.) 
DAE =KL(IP1,J 
DAW =XL(I_ ,J 
DXWW=XL(IM1,J 
Z 

it 


~ ss» ss Sw 


MTWWWW NNNND FPRRR FT ew on en 


DYNN=YL(1I,JP 
DYN = eee 
DYS =Yiuieid 

DYSS=VE ait 


DZFF=ZL(1I,J,K 
DZF @ZL01,J,K 
DZS Zi eee 
Meese 


DEC INE Sine wane 


DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN* DXN 
DZXS=DZS*DXS 


VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTINE 


ZXOYN=DZXN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXKYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/DXW 


~~ ~ ~ ~~ 


td rd ~ ~ ~~ ~ 


~ is j%ws %w 


bs 
Oo 


THE CONTROL VOLUME 


USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES AND FLUX ON TRE SUR Cee 











GEN=SILIN(R(IP1,J ,K),R(1,J  ,K),DKP1],DKI) “Ut Deis 
GES=SILIN(R(IP1,JM1,K),R(1,JM1,K) ,DXP1,DXI)*U( IPI, JMiDK 
GWN=SILIN(R(IM1,J ,K),R(I,J ,K),DAM1,DKI)7“~U(T pee 
GWS=SILIN(R(IM1,JM1,K),R(1,JM1,K),DXM1,DXI)*U(I ,JM1,K 
GN =SILIN(R(I,JP1,K),R(I,J ,K),DYNN,DYN)*V(1,JP1,K 

GP =STLINCR Ei Oyen Lo ok ,DYS ,DSN)*V (ia VK 

GS =SILIN(R(I,JM2Z,K) Rigi iK /DYSS, /DYS)*V 1, ,JMiy 
GFN=SILIN(R(I,J ,KP1),R(I,J ,K),DZP1,DZK)*W(I,J ,KP1 
GPS=sSLUINC RC UML hee Raine /K /DZP1, DZK)AW( 1 oN /KP1 
GEN=SIEINCR( EJ. , Wit) Ree /DZM1, DZK )*W(L,J /K 


GBS=SILIN(R(I,JM1,KM1 /R Toiae, /K ,DZM1, DZK)*W(1I,JM1,K 


See negate 
CS=0.5*(GP+GS )*DZXS 


CE= See {Ges Du aoe 
CW=SILIN(GWN,GWS ,DYN,DYS)*DYZW 


CE= a {,GES, OYNG een 
CB=SILIN(GBN,GBS ,DYN,DYS )*DXYB 


VISN=VIS(I,J_ ,K 
VISS=Vis( hott kK 
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801 


802 
803 


804 


805 
806 


807 
808 


809 
810 


VISN1=ZXOYN*VISN 
VISS1=ZXOYS*VISS 
VSB t=YZOXEV ESE 
VISWL=YZOKWAVISW 
VISE L=AYOZE VISE 
VISB1=XYOZB*VISB 


CEP= 
CEM= 
CWP= 
CWM= 
CNP= 
CNM= 
Csr = 
CSM= 


CFP= 


ABS 
ABS 
ABS 
ABS 


+CE 
-CE 
+CW 
-CW 


+CN 
=CN 
eS 
=CS 


+CF 
-CF 
+CB 
-CB 


AEE=-CEM*DXE /DXEE 
AEER=AEE*VPD(IP2,J,K) 
CONTINUE 


AWW=-CWP*DXW/DXWW 
AWWR=AWW*VPD(IM2,J,K) 
CONTINUE 


IF (J.LT.NJ) GOTO 805 
ANN=0. 

ANNR=0. 

GOTO 806 
ANN=-CNMADYN/DYNN 
ANNR=ANNAVPD (I, JP2,K) 
CONTINUE 


Boecd,Gr.3) GOTO 607 
ASS=0. 


ASSR=0. 

GOTO 808 
ASS=-CSP*DYS/DYSS 
ASSR=ASS4*VPD(I, JM2,K) 
CONTINUE 


IF (K.LT.NK) GOTO 809 
AFF=0. 

AFFR=0. 

GOTO 810 
AFF=-CFM4DZF/DZFF 
AFFR=AFF*VPD(1I,J,KP2) 
CONTINUE 


VISE= (VIS{IP1,J ,K 
& VIS(IP1,JM1, 
VISW= (VIS(IM1,J ,K 
& VIS(IM1 , JM1,K 
VISF= Orit /KP1 
& VIS(I,JM1,KP1 
VISB= (VIS(I,J ,KM1 
& VIS(I, IML, KML 


mor estesitesr- 
eo Ch tGr r+ Gn 
- 5*CB+CBM+CBP* 


TVES VL, UO 


/K 
teeboer, cit, 


ey 


+VIS(I, JM 


tVIS(L,J 


+ 
)/4.0 
/K)+ 
K))/4.0 


f 


a 
TVESOUr oie nh) )/4.0 
K)+ 


+VIS(I,J 


é 


+VIS(I,JM1,K))/4.0 


*DXE/DXI/16. 
ADXE/DXP1/16. 
ADXW/DXM1/16. 
*DKW/DXI/16. 


ADYN/DYJ/16. 
SOV OUe l/Lo. 
“vo DVM / 1G. 
“DyS/RYo7 16. 


“Z0/ 02h) le. 
SDZE/DZE Ly Le. 
eDZB/OZM1/ 16. 
*DZB/DZK/16. 


=- ,.5*CE+CEP+CEM* (1 
= .5*CW+CWM+CWP*(1 
== .5*CN+CNP+CNM*(1 
1 
1 


ft 


. +DXE/DXEE 
.+DXW/DXWW 
.+DYN/DYNN 
Fre / JO SeSs 
etDar /DZEE 
1.+DZB/DZBB 


+CWM*DXW/DXE+VISE1 
+CEP*DXE/DXW+VISW1 
osm wLs/ DiuNtVIStl 
+CNP*DYN/DYS+VISS1 
+CBM*“DZB/DZFtVISF1 
+CFP*DZF/DZBt+VISB1 


GOTO 812 
811 ABB=-CBP*DZB/DZBB 


812 


[Ph 4K. GT $2) GOTore1 1 
ABB=0. 
ABBR=0. 


ABBR=ABB*VPD(I,J,KM2) 
CONTINUE 


C HHETHHTHETHHE HHT RHEHREHRA THESE HAS SHE HRS HEH SHEE H HH 
C FHHREHHEETHRE HHH TE RRR H PRAHA HH HRR EHR 
C *** MODIFICATION FOR DECK BOUNDARIES 


900 


901 


I02 


203 


904 


a05 


906 


CONTINUE 
TE (NOD(IM] (3,4) FOR 0) (COTOs Jer 
AWW=0 .0 


AWWR=0 .0 


CONTINUE 
Ih (NOD(IP1,J,K).E0.0) GOTO 7907 
AEE=0.0 


AEER=0.0 


CONTINUE 

IF (NOD(T, JM2,K).EQ.0) GOTO 903 
ASS= 

ASSR=O. 0 


CONTINUE 

IF (NOD (T, JP1,K).EQ.0) GOTO 904 
ANN=0 

ANNR= By 0 


CONTINUE 

IF (NOD(T, 3J,KM1).EQ.0) GOTO 905 
ABB=0 

ABBR=0. 0 


CONTINUE 
IF (NOD(I,J,KP1).EQ.0) GOTO 906 
AFF=0.0 


AFFR=0.0 
CONTINUE 


C THHTHHHEEHTHHREEHE SHEE HEHEHE HHS RSS HHS aH 
C PRPHTRRS HHH THE EH HHH HHS HH HHS HER HH ER EHH RR RRS HH 


C kk 


C kk 


& UCTPL 
AU3=BILIN(W(I ,J /KP1 /W 
& W(I 


SU FROM NORMAL STRESS 


RN=(SIG22(I,J ,K)-(V(1I,JP1,K)-V(1,J  ,K)jJeVvisN) pa 
Ro=(SlG2Z7Z( 1 Ui k= va »K)-VC1, IMlGR Visa ie 
RE=(SIGIZ(IP1,J,K)-(V(IP1,J,K)<Vil,d 9K) 4 Vise) oe 
RW=(SIG12(I ,J,K)-(V(I  ,J,K)-V(IM1,J3,K))*VISW/ DKW 
RF=(SIG23(1,/) ,KPL)-(Vit okey eee *VISE/ DAE 
RB=(S&G23( 7734 = GV Cera -V(1,J,KM1)) ~VISBy DZE 


SU FROM CURVED STRESSES AND ACCELERATIONS 


Pee a ge ree ee terest aa 
AVG23=0.5*(SIG23(1,J3,Kel)+SiG23(1 7a. 

A VGaSSoTy Tc tesa uae ene el eae cee 
AVG33=SILIN(SIG33(1I,J,K) ,SIG33(1 ,JNIyk Varies 


AU2=V(I,J,K) 
AUI= =BILIN(U(IP1, J. ,K),U(1,3  ,K),Dxieeame 
JM1,K),U(I,5M1,K),DXI,DXI, DYN,DYS) 
tT .3,K) DZk bak 
/OM1,KP1),W(I,JM1,K),DZK,DZK, DYN,DYS) 


AR=SILIN(R(1,J,K),R(1, IML KR) DeN  Dve) 


ARU12=AR*AU1*AU2 
ARU23=AR*AU2*AU3 
ARU11=AR*AU1*AU1 
ARU33=AR*AU3*AU3 
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*ADZXN 
*DZXS 
*DYZE 
ADYZW 
De 
*DXYB 


RRZ=(AVG23-ARU23 )*DXI*( DYF-DYB 
RRY=(AVG11-ARU11 ) *DZK* (DXN-DXS )+ 


seg tva24-anuz SDL DHE DYE 
& (AVG33-ARU33 ) *DXI* (DZN-DZS 


EA eg re ADSAN(T .J,K)+AS(I,J,K) 

+AF (I,J, K)+AB(1I,J,K)+AEE+AWW+ANN+ASS+AFF+ABB 

ee eS eo M1, Ohh) VOLDT 
Sha KS ROD roe ee I, JM1,K)*DYN) / (DYS+DYN ) *VOLDT 
& Cpe 


SU(I,J,K)=SU(I,J,K)+DZK*DXI*(P(I,JM1 K) > P(I,J,K)) 
+AEER+AWWR+ANNR+ASSR+AFFR+ABB 
+RE-RW+RN-RS+RF-RB+RRX+RRZ- RRY 

& ee, J, £5 REQ(I,J,K))*DYS+(R(I,JM1,K) 
-REQ(I, JM1,K))*DYN) / (DYS+DYN) *VOL*SIN(ZC(K) )*SIN(XC(I)) 

100 CONTINUE 


5 § 


oo Peme CARE OF BaC. THRU AN, AS,AE,AW,AF,AB,SP AND SU 


e 
ena * RADIUS DIRECTION 


DO 500 K=2,NK 
DO 500 I=2,NI 
ale SP(I,3,K)=SP(1I,3,K)+AS(1I,3,K) 
SU(I,3,K)=SU(L,3,K)+AS(1,3,K)*V(1,2,K) 
AS(I,3,K)=0. 
AN(I,NJ,K)=0. 
500 CONTINUE 


C *x% CY¥LIC CONDITIONS 


DO 502 K=2,NK 
DO 502 J=3,NJ 
Sue od ,K =SU(2 ee BAY an oy x 
SU(NI, ae K)=SU(NI,J,K)+AE(NI,J,K)*V(NIP1, an K 
AW(2 ik =0.0 
AE(NI,J,K)=0.0 

502 CONTINUE 


oa FRONT AND BACK WALL 


DO 600 I=2,NI 
DO 600 J=3,NJd 


JM1=J-1 
C xxx SLIP WALLS 
Se teh Poor oe Fee Ie) 
SP(I,J,NK)=SP(I,J,NK)+AF(I,J,NK) 
Feld Nik) =0. 
Apion 0, 2)=0:. 
600 CONTINUE 


g ae ee ae a nnnn nna gannnanaann tne nnnnnT nett 
C ***X MODIFICATION FOR DECK BOUNDAR 


DO 101 N=1,NCHIP 
IB=ICHPB(N 
IE=IB+NCHPI(N)-1 
IBM1=IB-1 
IEP1=IE+1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
JBM1=JB-1 
JEP1=JE+1 
KB=KCHPB (N) 
KE=KB+NCHPK(N)-1 
KBM1=KB-1 
KEP1=KE+1 
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AAD 


A2IAAN 


DO 102 J=JB,JE 
DO 102 K=KB.KE- 
ea oe ac =SP (BML, J,K)-AE(IBM1,J,K) 
AE(IBM1,J,K)=0. 


SP rE ies (E98) -AW(IE,J,K) 
AW(IE,J,K)=0.0 
102 CONTINUE 


DO 103 I=IB,IE-1 
DO 103 K=KB.KE-1 
oe 
AS(L.JEP1,K)=0.0 
103 CONTINUE 


DO 106 I=IB,IE-1 

DO 106 J=JB,JE 

=e soe oe =SP(T, J,KBM1)-AF(I,J,KBM1) 
AF(I,J,KBM1)=0. 


ee ee HENS =5P(r, J,KE)-AB(I,J,KE) 
AB(I,J,KE)=0. 
106 CONTINUE 


THT HTH RET HRETEE PET HH E EH HH i at ae aes seat eat teat e ae 
SERCH ork Aone a a ee 
**X MODIFICATION FOR THE CELLS INSIDE OF THE 


DO 104 I=IB,IE-1 
DO 104 J=JB,JE 
DO 104 K=KB,KE-1 

LeU KJ ==1. Oho 

ean ie ‘ 

AER, d,s ‘ 

Eo py =O 
Peak 
ok 

104 CONTINUE 


101 CONTINUE 
105 CONTINUE 


HHH THREE HEE PH HEH THEE E SE eee H 
PRT RRR TH HH HH HE TH RH TRE HH ES FH HH HH RRR HH RH SERRE HF 
a ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 300 K=2,NK 
DO 300 J=3,NJ 


DO 300 I=2,NI 

pera ey 

DZK=ZL(1I,J,K,2,0 

DZX=DZK*DXI 

AP bane eyo eae ee 
J,K)=DZXK/AP(I,J,K) 


sae SOLVE FOR V 
CALE TRID (2,3,2,NINd-Rey 


DO 74 I=2,NIP1 
DO 74 j= 2 NIPL 
gs J,1)sv(I 2} 
v(I, 5 NRP1Y=04 J ,NK) 
74 CONTINUE 
DO 79 I= 1 ,NIPI 
0 79 K=1,NKP1 
VL, 21) =y(T, 3,K) 
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79 CONTINUE 


IF (NCHIP. aes FONMGOLO Liz 
C Hageudnaduauaada HHHHHHH ARRAS HHH RHE RRS HHH HH HE EH HHH Ht 
gs ea Lea CIE o Anse Eee 
PRESET THE VELOCITY INSIDE OF THE DEES 


DO 110 N=1,NCHIP 
IB=ICHPB(N 
IE=IB+NCHPI(N)-1 
JB=JCHPB (N) 
JE=JB+NCHPJ(N)~-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N) -1 
DO 108 I=IB,IE-1 
DO 108 J=JB,JE 
DO 108 K=KB,KE-1 
ViGme)=000 

108 CONTINUE 

110 CONTINUE 

112 CONTINUE 


C FEHHRETHRRSEHRHAEHRS HERS H RSH ES SHE TH EHH RE HH 
c a aera ear a aera er ene 


END 
C 
e R 
SUBROUTINE CALW 
Cc KIER RRR RRR RK RRS 
COMMON/R4/RC(93) ,' ¥C(93) ZC(93),XS(93) ,¥S(93) ,25( (93) 
ic ¢(93) ,DZZC(93) ,DXxXS(93) , DYYS(93) ,DZzS(93) 
COMMON/BL1/DX, ie VoL. DTIME , VOLDT, THOT , TCOOL, PI,Q 
COMMON/BL7/NI,NIP1,NIML,NJ,NJP1,NJM1,NK,NKP1,NRUL 
\NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN, NCHIP ,NJRA,NWRP 
COMMON/BL12/ NWRITE ,NTAPE ,NTMAXO ,NTREAL , TIME , SORSUM, ITER 
COMMON/ BL16/ CONST1 , CONST2 , CONST3 , CONST4 , CONST6 ,NT, UO,H, UGRT, BUOY, 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA, DTEMP, TWRITE , TTAPE, TMAX,GC,RAIR 
COMMON/BL20/SIG11(22,16, 32), S1G12(22, 16, 32), Pemeo7 (22716, 32 
Smemo(22, 16,32) Siezs(22, Ie 52) SsiG3s(22, 16,32 
COMMON /BL22/TCHPR 19), \NCHPI(10), JCHPB(10), NCHPJ(10), KCHPB(10), 
iS NCHPK (10) , TCHP(10) ;CPS(10),C S(10) 
COMMON/BL31/ TOD(22,16,32),ROD(22, 16,32) 1 SPOD (22) 6,32) 
Gee (22 16,32), U0D(22 16,32), Vou (22,1 ash ob (23, 16,32) 
COMMON/BL32/ T(22,16,32),R(22,16,32),P(22,16,32 
& ic (22, Mic ae oe. BM 32) ,V(22,16,32) ,W(22,16,32) 
COMMON/BL33/ TPD(22,16, eer ees (2OF 1G - a 
e CPD(22,16,32),UPD(22,16, 32) , VPD(22,16,32),WPD(22,16, 32) 
COMMON/BL34/ HEIGHT(22,16,32) ,REO 22.16.32), 
j P(22,16,32),SMPP(22,16,32),PP(22,16,32), 
gS DU(22,16,32),DV(22,16, 32) ,DW(22,16, 32) 
COMMON/BL36/AP (22,16, 32). /AE(22,16. 32) ,aW(22,16,32) AN(22,16, 32) 
iS AS(22,16 32); Dn eele 32) AB(22,16,32)), 
iC SP(22,16,32),S U(22, Mig 82 ERI (22 16.32) 
COMMON/BL37 / YTs(D2. 6 32) /COND(22,16,32) ,NOD(22,16 32), RWALL (560) 
es ,CPM(22,16,32) ,HSZ(3,2),NHSZ(22,16,32) , RESORM(93) 
C xkx CALCULATE COEFFICIENTS 
DO 100 K=3,NK 
KP2=K+2 
KP1=K+1 
KMIL=K-1 
KM2=K-2 
DO 100 J=2,NJ 
JP2=J+2 
JP1=J+1 
JIM1=J~-1 
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C xkx 


Gc K*K* 


G KAX 


JM2=J-2 

DO 100 I=2,NI 
Pea 

IP1=I+1 

IM1l=fo2 

IM2Z=I-2 

IF oesea IM2=NIM1 
feat, BO.) [22-3 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


DAPI=ALA LP ig KK, 3, 0 
DATS =A0t To ko; 
DANT=ADCINI J, Keo 


DYP1=YL L316 3.9) 


~ 
© 


DY “SVE ean, 
DYMI=YEUT wie <7 e 


bake oat {TY 


WW 
S 





~ 


(J Gd 


DZR =2LCL dK 7, 
DZril-—ZE Cre Kil Ss 


SURFACE LENGTH 


DAN=AXL(1I,JP1,K 
DAS=AL(I,J ,K 
DAF=AL 
DAB=AL 


DYF=YL 
DYB=YL 
Dye— ae 
DYW=YL 


DZE=ZL 
D2ZW=2L 
DZN=2L 
DZS=2L 


ee el ae” 
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THE CONTROL VOLUME 
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THE STAGGERED CONTROL VOLUME 


DXEE=XL(IPZ,J,K 
DAE =ACCIFIV Sg, 
DAW =AL(I_,J 
DAWW=AL(IM1,J 
Z 
i 


™ ™ = = 
~ i= ~ ~ 


DYNN=YL(I,JP 
DYN =YL(I,JP 
DYS =YL(I,J 

DYSS=YL(I,JM1 


DZFF=ZL(1,J,KP 
DZF =ZL(1,J,KP 
DZB =ZL(1I,J,K 
DZBB=ZL(1I,J,KM1, 


DEFINE THE AREA OF THE CONTROL VOLUME 


DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DKN 
DZXS=DZS*DXS 


VOL=DKI*DYJ*DZK 
VOLDT=VOL/DTIME 


ZXOYN=DZKN/DYN 
ZXOYS=DZXS/DYS 
XYOZF=DXYF/DZF 
XYOZB=DXYB/DZB 
YZOXE=DYZE/DXE 
YZOXW=DYZW/DXW 


= = ~™= ™= 
~= ™ = = 


-= = 


WWWW WWWW WWwWW 


~~ = = % 
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C x** 





USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 





C & PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 
GNF=SILIN(R(I,JP1,K os I,J,K ),DYP1,DYJ)*V(I,JP1,K 
GNB=SILIN(R(I,JP1,KM1),R(I,J,KM1),DYP1,DYJ)*V(1I,JP1,KM1 
GSF=SILIN(R(I,JM1,K 8 I,J,K ),DYM1,DYJ)*V(I,J  |K 
GSB=SILIN(R(I,JM1,KM1),R(I,J,KM1),DYM1,DYJ)*V(I,J  ,KM1 
GF =SILIN(R(I,J,KP1),R(I,J,K ),DZFF,DZF)*W(I,J,KP1 
GP =SILIN(R(I,J,KM1),R(I,J,K ),DZB ,DZF)*W(I,J,K 
GB =SILIN(R(I,J,KM2),R(1I,J,KM1) ,DZBB,DZB)*W(I,J,KM1 
GEF=SILIN(R(IP1,J,K ),R(I,J,K ),DXP1,DXI)*U(IP1,J,K 
GEB=SILIN(R(IP1,J,KM1),R(I,J,KM1) ,DXP1,DXI)*U(IP1,J,KM1 
GWF=SILIN(R(IM1,J,K ),R(I,J,K ),DKM1,DKI)*U(I ,J,K 
GWB=SILIN(R(IM1,J,KM1),R(I,J,KM1) ,DXM1,DXI)*U(I J, KML 
eee kee 
CB=0.5*(GP+GB)*DXYB 
CN= eee: ,GNB,DZF, peer 
CS=SILIN(GSF,GSB,DZF ,DZB) *DZxS 
te ee 2 OEE DEB) DEE 
CW=SILIN(GWF ,GWB,DZF,DZB)*DYZW 
VISF=VIS(I,J,K 
VISB=VIS(I,J,KM1 
VISN= (VIS(I,JP1, +VIS(I,J,K )+ 

& VES DIP L. Ot +VIS(I,J,KM1))/4.0 
VISS= (VES I,JM1,K )+VIS(I,J,K )+ 

& vIS i ,JM1,KM1)+VIS(1I,J,KM1))/4.0 
VISE= (VIS(IP1,J,K )+VIS(I,J,K )+ 

& VIS(IP1,J,KM1)+VIS(I,J,KM1))/4.0 
VISW= (VIS(UIM1,J,K )+VIS(I,J3,K )+ 

& VIS(IM1,J,KM1)+VIS(I,J,KM1))/4.0 
VISN1=ZXOYN*VISN 
VISS1=ZXOYS*VISS 
VISE1=YZOXE*VISE 
VISW1=YZOXW*VISW 
VISF1=XYOZF*VISF 
VISB1=XYOZB*VISB 
CEP=(ABS(CE)+CE)*DXE/DXI/16. 
CEM=(ABS(CE)-CE)*DXE/DXP1/16. 
CWP=( ABS (CW)+CW)*DXW/DXM1/16. 
CWM=(ABS (CW)-CW)*DXW/DXI/16. 
CNP=(ABS(CN)+CN)*DYN/DYJ/16. 
CNM=(ABS(CN)-CN)*DYN/DYP1/16. 
CSP=(ABS(CS)+CS)*DYS/DYM1/16. 
CSM=(ABS(CS)-CS)*DYS/DYJ/16. 
CFP=(ABS(CF)+CF)*DZF/DZK/16. 
CFM=(ABS(CF)-CF)*DZF/DZP1/16. 
CBP=(ABS(CB)+CB)*DZB/DZM1/16. 
CBM=(ABS(CB)-CB)*DZB/DZK/16. 
AE(I,J,K)=-. 5*CE+CEP+CEM* (1.+DXE/DXEE)+CWM*DXW/DXE+VISE1 
AW(I,J,K)= .5*CW+CWM+CWP*(1.+DXW/DXWW)+CEPADXE/DXWtVISW1 
AN(I,J,K)=-. 5*CN+CNP+CNM*(1.+DYN/DYNN)+CSM*DYS/DYN+VISN1 
AS(I,J,K)= .5*CS+CSM+CSP*(1.+DYS/DYSS ) +CNP*DYN/DYS+VISS1 
AF(I,J,K)=-. 5*CF+CFP+CFM*(1.+DZF/DZFF )+CBM*DZB/DZF+VISF1 
AB(I,J,K)= .5*CB+CBM+CBP*(1.+DZB/DZBB)+CFP*DZF/DZB+VISB1 


801 AEE=-CEM*DXE/DXEE 
AEER=AEE*WPD(IP2,J,K) 
802 CONTINUE 


803 AWW=-CWP*DXW/DXWW 
AWWR=AWW*WPD (IM2,J,K) 


oe 


AAA 


804 CONTINUE 
IF (J.LT.NJ) GOTO 805 
ANN=0. 


ANNR=0. 
GOTO 806 
805 ANN=-CNM*DYN/DYNN 
ANNR=ANN*WPD(I,JP2,K) 
806 CONTINUE 


IF (J.GT - 2) Coto. coe 


ASSR=0. 
GOTO 808 
807 ASS=-CSP*DYS/DYSS 
ASSR=ASS*WPD(I, JM2,K) 
808 CONTINUE 
IF (K.LT.NK) GOTO 809 
AFF=0. 
AFFR=0. 
GOTO 810 
809 AFF=-CFM*DZF/DZFF 
AFFR=AFF*WPD(1I,J,KP2) 
810 CONTINUE 


PPK. Gl. S)wGOlOncr 
ABB=0. 
ABBR=0. 


GOTO 812 
811 ABB=-CBP*DZB/DZBB 
ABBR=ABB*WPD(1,J,KM2) 
812 CONTINUE 


HRTTHHRR EH TAH TH HARARE HEE THES SE PH EH HHS HH HR RSE HHH H 
THES HPRR THREE TRH RARE HE RTE HERA HE 
XXX MODIFICATION FOR DECK BOUNDARIES 


900 CONTINUE 
IF (NOD (IHL, J,K).EQ.0) GOTO 901 
AWW=0 
AWWR=O. "0 

901 CONTINUE 
IF (NOD(IP1,J,K).EQ.0) GOTO 902 
AEE=0 .0 
AEER=0 .0 

902 CONTINUE 
IF (NOD(I,JM1,K).EQ.0) GOTO 903 
ASS=0 .0 
ASSR=0.0 


903 CONTINUE 
TE AN (oD (z, JP1,K).EQ.0) GOTO 904 
ANNR=O. 0 


904 CONTINUE 
IF (NOD(I,J,KM2).EQ.0) GOTO 905 
ABB=0 .0 
ABBR=0.0 

905 CONTINUE 
TF _(NOD(I,J,KP1) .EQ.0) GOTO 906 
AFFR=0.0 

906 CONTINUE 


HRTHHHHHTRRE RE HERR ER EE THHER OHH 
PRAHA HH HRA RAE EH RRR SH EHH ET HH RSE HE RRS E REE RR 


Cy = SU FROM NORMAL STRESS 


RF=(SIG33(I,J,K )-(W(I,J,KP1)-W(I,J,K ))*VISF/DZF)*DXYF 
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RE—ColGooiieoy nil aii TJ ,K -W(I,J,KM1))*VISB/DZB ) *DXYB 
RN=(SIG23(1I,JP1,K)-(W(I,JP1,K)-W(I,J = ,K))*VISN/DYN)*DZXN 
Rok ShG2a( Doi) (Ne Kh) hl | KK) )*VISS/DYS )*DZxXS 
RE=(SIG13(IP1,J,K)-(W(IP1,J,K)-W(I  ,J,K))*VISE/DXE)*DYZE 
RW=(SIG13(I ,J,K)-(W(I ,J,K)-W(IM1,J,K))*VISW/DXW) *DYZW 
—~* SUerReM CURVED "Ss1kbosns SND ACCELERATIONS 
AVG23=0. ere: Pony, Pecan 
PoGus-Omo7(slGlS(IPl,J,K)tSiGl3(1,J,K 


AVG22= =SILIN(S1622 ie Sele ia Kink /DZE ,DZB} 
AVG11=SILIN(SIG11(1,J,K),SIG11(1,J,KM1) ,DZF,DZB 


AU3=W(I,J,K) 


p2= BILIN(V(T, jek Clem. )-DYa, Dvd. 

& JP1,/KM1),/V(I,J3,KM1),DYJ,DYJ, DZF,DZB) 
A BILIN(U TPT. UN) Ge ae 

& IP1,J,KM1),U(I,J,KM1),DXI,DXI, DZF,DZB) 
Mg: kn. ,KM1) ,DZF , DZB) 


ARU23=AR*AU2*AU3 
ARU13=AR*AU1L*AU3 
ARU22=AR*AU2*AU2 
ARU11=AR*AU1*AU1 


RRY=(AVG23-ARU23 )*DXI*(DZN-DZS 

RRX=(AVG13-ARU13 )*DYJ*(DZE-DZW 

RRZ=(AVG22-ARU22 )*DXI*(DYF-DYB)+ 
&  (AVG11-ARU11)*DYJ* (DXF-DXB) 








Be Lyd; ae I Aa J, nae jl KAS (LJ KK) 
Gis J, +AB ( K)+AEE+AWW+ANN+ASS+AFF+ABB 
p(T. K)== (ROBIE, io an beeseaptt vie heey) pean orb 
SU(L,J,K)= Asante J,K)*DZB+ROD(I,J,KM1)*DZF) / (DZB+DZF )*VOLDT 
O i 


I 
SU(I,J,K)=SU(1,J,K)+DXI*DYI*(P(I,J (RUM) - PGi dik) 
+AEER+AWWR+tANNR+ASSR+AFFR+ABBR 
+RE-RW+RN-RS+RF- SRBSRRY+RRK- RRZ 
& A ee ,J,K)-REQ(I,J3,K))*DZB*COS (ZC (K) )+(R(I 
& KM1)-REQ(I,J,KM1))*DZF*COS(ZC(KM1)))/(DZB+DZF)*V oL*SIN(XC(I)) 
100 CONTINUE 


C xxx TAKE CARE OF B.C. THRU AN,AS,AE,AW,AP AND SU 


c 
a. RADIUS DIRECTION 


DO 500 K=3,NK 
DO eee I=2,NI 


> MW 


KM1=K-1 

EC SP(I, 2 K)= SP (T,2,K) +AS (talk) 
SP(I,2,K)=SP(I,2,K)-AS(1,2,K) 
SU(I,2,K)=SU(I,2,K ee) 
SP(I,NJ,K)=SP(1I,NdJ,K)-AN(1,NJ,K 


Poel 24K )—0 
AN(I,NJ,K)=0. 
500 CONTINUE 
C xxx CxCiIc CONDITIONS 


DO 502 K=3,NK 
DO 502 J=2,Nd 


SU(2 ,J,K)=SU(2 ee a KK is note 
SU(NI,J,K)=SU(NI,J,K)+AE(NI,J,K)*W(NIP1,J,K 
AW(2 ,J,K)=0.0 
AE(NI,J,K)=0.0 
502 CONTINUE 
C xxx FRONT AND BACK WALL 


DO 600 I=2,NI 


= ane a »NK 
=e pS )rab l,J,3 


199 


600 CONTINUE 


IF (NCHIP.EQ.0) GOTO 105 


C THHHHTRHE EHTS THHRH EHR H HHH E HSH RET RR SH RH RH HH PaaS HF 
C FHHHHHR TH HHHA EHH RH HHH aS PERE SS HH oH HH 
C *** MODIFICATION FOR DECK BOUNDARIES 


DO 101 N=1,NCHIP 
IB=ICHPB(N 
IE=IB+NCHPI(N)-1 
IBM1=IB-1 
IEP1=IE+1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
JBM1=JB-1 
JEPL=JE+1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 
KBM1=KB-1 
KEP1=KE+1 


DO 102 J=JB,JE-1 

DO 102 K=KB,KE 

PiIBNL J -KiSSP (IRN) 7) ae 
AE(IBM1,J,K)=0.0 


BN Uy ia 
102 CONTINUE 


DO 103 I=IB,IE-1 

DO 103 K=KB.KE 

SE (tL IBML Kose ¢e 181 EAN 
AN(I,JBM1,K)= 


Se JE, ee ee JE,K)-AS(1I,JE,K) 
AS(\ 1VGE 
103 CONTINUE 


DO 106 I=IB,IE-1 
DO 106 J=JB,JE-1 
a cy a =0.0 
AB(L,J,KEP1)=0.0 
106 CONTINUE 


C *** FOR THE CELLS INSIDE OF THE DECKS 


DO 104 I=I18,IE-1 
DO 104 J=JB,JE-1 
DO 104 K=KB,KE 

SE Gl ay =-1.0E20 


ae rae Sat =SP(IE, J,K)-AW(IE,J,K) 


AW(I,J,K)=0. 
AE(I,J,K)=Q. 
AS le) =O - 
AN(I,J,K)=0 
SU(I,J,K)= 


104 CONTINUE 
161 CONTINUE 
105 CONTINUE 


C FTTH THEA HT RTS Tea HHH H HHH S SH aS HS 
C FAR THHHaHHHHHE HH HH ASH HH SS HH HS PH HHH TH RRR HH HRS RRS SH 


C xxx ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DYJ=YL 
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AP Be eoe 
DW(T,J,K)=D 
301 CONTINUE 


Cages SOLVE FOR W 
GALLO RID CZ y2-3,NI,NI-NK,W) 


DO 76 I=1,NI 

DO 76 J=1,NJ 
Peet) 
W(I,J,NKP1L)=W(I,J, 
76 CONTINUE 


NK) 


LF e(NCHIP .EQRO)..GOTO -Li2 
C HHETHHETHETETEERETHTH HA HHHHHH A ee ee oe 
C HHA AATHHHRRHE ETH HH ERATE HH RRR ee eee 
ee ** RESET THE VELOCITY INSIDE OF THE DECKS 


DO 110 N=1,NCHIP 
IB=ICHPB(N 
IE=IB+NCHPI(N)-1 
JB=JCHPB (N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 
DO 108 I=IB,IE-1 
DO 108 J=JB,JE-1 
DO 108 K=KB,KE 
Moe K=O. 

108 CONTINUE 

110 CONTINUE 

112 CONTINUE 


RETURN 
END 


KRREKARKKKKKKAKRKKKKRRKRKRKKKKAKRKRKKKRKRKARKKKKKRKRKRKRKRKRKAKAKKKRKRKRRKRKKRKRRKRRRERE 


SUBROUTINE CALP 
FPP KF KIKI KIKI KIKI KIKI KKK 
COMMON/R4/XC (93) , ¥C(93) ZC(93) -45(93) .¥5 (93) 25 (93), 
eS DXXC(93) ,DY¥C(93) ,DZZC(93) ,DXXS(93) ,DYYS (93) ,DZZS(93) 
COMMON/BL1/DX,DY,DZ,VOL ,DTIME , VOLDT, THOT, TCOOL ,PI,Q 
COMMON/BL7/NI,NIP1,NIM1L.NJ,NJP1,NJM1,NK,NKP1,NKM1 
& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN, NCHIP,NJRA,NWRP 
COMMON/BL12/ NWRITE ,NTAPE ,NTMAXO ,NTREAL,TIME,SORSUM, ITER 
COMMON/BL16/ CONST1,CONST2, CONST3 , CONST4 , CONST6 ,NT,UO,H,UGRT,BUOY, 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA, DTEMP, TWRITE, TTAPE ,TMAX,GC,RAIR 
COMMON/BL22/ICHPB(10) ,NCHPI(10), JCHPB(10) ,NCHPJ(10) , KCHPB(10), 
NCHPK (10 ,TCHR (10) ,CPS(10) , CONS (10 
COMMON/BL31/ TOD(22,16,32),ROD(22, 6,32) ,POD(22,16 ,32) 
,COD(22,16,32),U0D(22, 16,32) , VOD(22,16,32) ,WOD(22,16,32) 
COMMON/BL32/ T(22, 16,32) ,R(22,16,3 ) P(22, 16,32 
Reimar 2) ,U(2 (16,32) ,V(22,16 32) ,W(2 /16,32) 
COMMON/BL33/ TPD(22,1 Se re oe) EPP a.) 
ierneo is 2) UPD 22 16,32) VeD\ 22) 16/32), WPD(22,16,32) 
COMMON/BL34/ HEIGHT(22,16 32) REQ(22, 16,32) 
SMP (22,16 32) SUPP (22,1632) , PP POG 
Bio? 16,42) BV( 22) 16,32) ,DW(22. 16,32) 
02a) BE (22, 16,52) AM (22,1532) ,AN(22, 16,32), 
Ree 6°32) AP (22 ul6 32) ABY22 16,32) , 
SP ( 216,32) ,SU(22,16,32) ,RI(22, 16, 32) 
COMMON/BL37/ VIS(22, 6 32) ,60NOG 16,32) ,NOD( 22,1632 ,RWALL (560) 
,CPM(22,16,32) ,HSZ(3,2) ,NHSZ(22,16,32) , RESORM(93) 


C xxx CALCULATE COEFFICIENTS 


DO 100 K=2,NK 
KP2=K+2 


QA 


BR PD MM WM WM LK 
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C *xkk 


C kK 


C. ARK 


KP1=K+1 
KM1=K-1 
KM2=K-2 

DO 100 J=2,NJ 
JP2=J+2 
JP1=J+1 
JM1=J-1 
IM2=J-2 
DOL100l1=2 06 
IP2=1I+2 
IP1=I+1 
IM1=I-1 
IM2=I-2 

IF (I.EQ.NI) IP1=2 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 
DAE IHRE CIPI aK Ane 

DXI =XL(I- ,J,K,0,0 

DAML=XL(IM1,J,K,0, 

DYPI=VEC rR Pt ke One 
DY¥J =YLC Td, 








K,0, 
DYMT=YE( 1 oti kK 70, 
DZP1=2ZL(1,J,KP1 
DZK =ZL( 1,0, 
DZM1=ZL(1I,J,KM1 


SURFACE LENGE 


DAN=AL(I,JP1, 
DAS=AL 
DAF=AL 
DAB=AL 


DYF=YL 
DYB=YL 
DYE=YL 
DYW=YL 


DZE=2ZL 
DZW=2ZL 
DZN=2L 
DZS=Z2L 


OOO OO 


NNR HRWW WWhnd O ~ ~ 


wenn Nn ers wr ee COO ON COO 


THE CONTROL VOLUME 
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HOC, CCG 
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DEFINE AREA OF THE CONTROL VOLUME 


DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 


RN=(R(I,J,K)*DYP1+R(1I,JP1,K)*DYJ)/(DYP1+DYJ 
RS=(R(T,J,K)*DYMI+R(I,JML,K)*DYJ)/(DYM1+DYJ 
RE=(R(I,J,K)*DXP1+R(IP1,J,K)*DXI)/(DXP1+DXI 
RW=(R(L,J,K)*DXM1+R(IM1 ,J,K)*DXI)/(DXM1+DXI 
RF=(R(L,J,K)*DZP1+R(L,J,KP1)*DZK) / (DZP1+DZK 
RB=(R(I,J,K)*DZM1+R(L,J,KML)*DZK) / (DZM1+DZK 
DU ON VERTICAL WALLS AND DV ON HORIZENTAL WALLS ARE ZERO 

AN(1I,J,K)=RN*DZXN*DV(I,JP1,K) 
AS(1L,J,K)=RS*DZXS*DV(I,J,K) 
AE(1,J,K)=RE*DYZE*DU(IP1,J,K) 
AW(I,J,K)=RW*DYZW*DU(I,J,K) 
AF(I,J,K)=RFE*DXYF*DW(I,J,KP1) 
AB(1,J,K)=RB*DXYB*DW(1,J,K 


CN=RN*V(1I,JP1,K)*DZXN 


202 


CS=RS*V(I,J_,K) *DZXS 
CE=RE*U(IP1,J,K)*DYZE 
CW=RW*U(I ,J,K)*DYZW 
CF=RF*W(I,J,KP1)*DXYF 
pai og, Dos 
SMP(I,J,K)=-(R(I,J,K)- ROD(T J,K))*VOL/DTIME-CE+CW-CN+CS-CF+CB 
C SMP (I,J ,K)=-CE+CW-CN+CS-CF+CB 
SUIT, J,K =SMP(I,J,K) 


Seu a 
100 CONTINUE 
aK TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 


ARK RADIUS DIRECTION 


DO 500 K=2,NK 
DO nS I=2,NI 
anc ,K)= =0. 
ANCL; NJ /K)=0. 
500 CONTINUE 


eek LEFT WALL AND RIGHT WALL 
DO 501 K=2,NK 


c Bl ee oc 


501 CONTINUE 
C xxx FRONT AND BACK WALL 


DO 502 I=2,NI 

DO 502 J=2,NJ 

aB(T, J ,2)=0.0 

AF(I,J,NK)=0.0 
502 CONTINUE 


AA 


ie (CHIP .EO.0) GOTO 105 


C HEFT HHETHRR AHHH THREE HHS R SHH HHT R aR ee ee 
€ THTHHHTTAR RH RPAH R ARH TRE ART a eT 
C *** MODIFICATION FOR DECK BOUNDARIES 


DO 101 N=1,NCHIP 
IB=ICHPB(N 
IE=IB+NCHPI(N)-1 
eee = 1 

Perla bet | 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
JBM1=JB-1 
JEPI=JE+1 
KB=KCHPB (N) 
KE=KB+NCHPK(N)-1 
KBM1=KB-1 

RE Geist | 


DO 102 J=JB,JE-1 
DO 102 K=KBKE-1 
eet 2 KS=0.0 
AW(IE,J,K)=0.0 


102 CONTINUE 


DO 103 I=IB,IE-1 
DO 103 K=KB.KE-1 
ae KJ=0.0 
AS(I,JE,K)=0.0 
103 CONTINUE 


DO 106 I=IB,IE-1 
DO 106 J=JB.JE-1 
AF(I,J3,KBM15=0.0 
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AEC eee) =00 

106 CONTINUE 

*x*k* FOR THE CELLS INSIDE OF THE DECKS 
DO 104 I=IB,IE-1 
DO 104 J=JB,JE-1 


DO 104 K=KB,KE-1 
Se) A =a OR ZO 


AW(I,J,K)=0 
BEM On) =O 
ASK) Oe 
AN(I,J,K)=0. 
SUE 7K) =O" 


104 CONTINUE 
101 CONTINUE 
105 CONTINUE 


TTT ERT TH RRR EH RE THe Ee TH eee eT Re Re Rea aH 
PHHTTHTAATRAHHA THROAT POPP OT et 


AKK ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
DO 300 J=2,NJ 
DO 300 I=2,NI 


,J,K)+BE(I,J,K) +20 (Td ios 


RAK SOLUTION OF FINITE DIPFERENCE EQUATIGH 
CALL TRID: fee 22 NU NK PR) 
xk THIS IS FOR CKECKING 


DO 161 I=1,NIP1 
WRITE (6,*) I 


C 
949 FORMAT ( ' AW '') 


AO 


WRITE tees, 
WRITE (6,999) ((AW(I,J,K),K=1,NKP1),J=1,NJP1) 


161 CONTINUE 


DO 160 I=1,NIP1 
nek 


C ; 
948 FORMAT (' AE ') 


AO 


160 CONTINU 


WRITE eee 
ee ((AE(I,J,K),K=1,NKP1) ,J=1,NJP1) 


DO 170 I=1,NIP1 


C WRITE (6,%*) I 
958 FORMAT (' AB ') 

C WRITE heed 

e WRITE (6,999) ((AB(I,J,K),K=1,NKP1) ,J=1,NJP1) 
170 CONTINUE 


MO Cie CY. COI) 


AQ 


190 CONTINU 


DO 180 I=1,NIP1 
WRITE (6,%) I 


968 FORMAT (' AF ') 


WRITE eee 
WRITE (6,999) ((AF(I,J,K),K=1,NKP1) ,J=1,NJP1) 


180 CONTINUE 


Al 
978 FORMAT ( ' SU‘) 


WRITE eee 
cee ((SU(I,J,K),K=1,NKP1) ,J=1,NJP1) 


DOS191 Tati 


Wie ee I 
WRITE) (6,968) 
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988 FORMAT ( ' PP ') 

C WRITE (6,999) ((PP(I,J,K),J=1,NJP1) ,K=7,7) 
191 CONTINUE 
999 FORMAT (12E10.3) 


RAK CORRECT VELOCITIES AND PRESSURE 


AK GGRRECTIONSSOR VELOGiEY U 


DO 600 I=2,NI 

IM1= (TE 

ie ees ee ee NI 
DO 565 

DO 600 R29 'N 


AAD 


U(I,J,K)= utr. De) EDO oe Ki (PPC IMI, veneered, Kk) ) 


600 CONTINUE 
~*~ CORRECTION £OR VELOCITY V 
DO 603 J=3,NJ 
JM1=J-1 
DO 603 K=2, + 
DO 603 I=2,N 


Vl Kav (L, Seno y (leh) (eed ie JM KP eed 1K) ) 


603 CONTINUE 
nn CORRECTION OF VELOCITY W 
DO 604 K=3,NK 


DO 604 3= oe Nd 


OO. =w(I, J,K)+DW(I,J,K)*(PP(I,J,KM1)-PP(1I,J,K)) 


W(I 
604 CONTINUE 


C *kx SORRECIION FOR PRESSURE P 


DO 606 J=2,NJ 
DO 606 I=1, ra 
DO 606 K=1, 
Prd x)=B(T, ero) eel ad Al) 
PP(I, J ,K)=0 
606 CONTINUE 


oe -~ THIS IS FOR R=0.0 CASE 


DO 75 I=1,NIP1 
DO 75 K=1,NKP1 


e Ue UCL, 2,K 
c phere, Kawi lt, 2,K 
Ly 2) Ee 3 ne 








V 
75 CONTINUE 


: ***X MODIFICATION FOR R=0.0 


DO 55 K=2,NK 

VY=0.0 

VX=0.0 

VZ=0.0 

DO 50 I=2,NI 

ee eo 

VA=VX-U(I,2,K)*SIN(XS(I 
50 CONTINUE 


DO 51 I=2,N 
VY=VY+V(1I, 3, K cy 
VX=VK+V(1,3,K)*COS(XC(I 
VZ=VZtW(1,2,K 


51 CONTINUE 








C *** FIND THE VELOCITIES AT R=0.0 
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aaa 


aa 


DOwaZ I=1,NIPI1 


U oe ae VRRCOS RCle) VT ERCTNT Cc) th etd 
Vie (VE*COS (KCC L) FV i oe een /NIN1 
WC R) =Vv2/NIMI 





52 CONTINUE 
55 CONTINUE 


kkk THIS IS FOR THE CYLINDER ONLY (CYLIC CONDITION) 


DO 76 J=1,NJP1 
DO 76 K=1,NKP1 


U(1,J,K)= =U (NI, o] KR) 

U(NIP1 ES = U(2 K) 

V La RSVCNT aR 

V(NIP1,J,K)=V(2,d,K) 

Wi1,J,K)=W(NI, J, K) 

W(NIPL,J,K)=W(2,d,K) 
76 CONTINU 


RAK THIS FOR SPHERE oiiy 


DO 77 I=1,NIP1 
DO 77 J= 1, NJP1 





ag nn, fn. 
ob Ub bat 


, 
, 
, 
f 
, 
s 


Boles 
tid to tt Il 
ee oe 








SGeccz<c 
HH HHHH 
OU ac 


aa NTI 
IF (NCHIP.EO.0) GOTO 116 
igen once HHHHHHHEHHSHHPEHHESHHEEHHHEEHHERERE HEHEHE HH 


HTT HHH 
AK RESET THE VELOCITY INSIDE OF DECK 


DO 120 N=1,NCHIP 
IB=ICHPB(N 
IE= PEPE SN) il 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N) -1 
DO 109 I=IB,IE 
DO 109 J=JB,JE-1 
DO 102 K= er ah 
U(I,J,K)=0 
109 CONTINUE 


DO LlGst-—18 7 ie 1 
DO 118 J=JB,JE 
DO 118 K=KB,KE-1 
V(I,J,K)=0.0 

118 CONTINUE 


DO 119 I=IB,IE-1 
DO 119 J=JB,JE-1 
DO 119 K=KB,KE 
W(I,J,K)=0 

119 CONTINUE 

120 CONTINUE 


116 CONTINUE 
HHHHREE TH HEE TERRE EE REPT EHR Phe ee 
HHRRR HT HRA RRR TE RRR RH HH BH RS PH RE ot TR REE HH RRR RR TH 


ARK RECALCULATE THE ERROR SOURCE AFTER CORRECTICNSSOp Uy ae 


SORSUM=0. 
RESORM(ITER)=0. 
DO 700 J=2,NJ 
JP1=J+1 
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Ce KKK 


C xk* 


C 


C *x*x* 
C 


Cc K*K* 


JM1=J-1 
DO 700 I=2,NI 
IP1l=I+1 
IM1l=I-1 
DO 700 K=2,NK 
KP1=K+l1 
KMN1=K-1 


CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 


DXP1=XL(IP1,J,K,0,0 
DAI =XL(I_ Od, 
DAMI=AL(IM1, ae, 


Ino 
KG 
Bey SULT 3 p 
K 





DyJe—vo. TJ 
DYM1=YL(I,JM1 


DZEt=ZL( 1, J,KP1,0, 
DAZke=c2Etl,J,K ,0, 
DZNT=ZEL(1,J,KML,O, 


THE CONTROL VOLUME 


DXAN=AL(I,JP1 
DAS=XL(1I,J 

DXF=AL 
DAB=XL 


Dyes iG 
DYB=YL 
DYE=YL 
DYW=YL 


DZE=2ZL 
DZW=ZL 
DZN=ZL 
DZS=Z2L 


ty tds s 
+4 
POG GUNN AS 
Sree ee ee Of 


HHH HHH HH 
tgs ~ 


c,c, 


~ ~~ 


DEFINE AREA OF THE CONTROL VOLUME 


DXYF=DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZW=DYW*DZW 
DZXN=DZN*DXN 
DZXS=DZS*DXS 


VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 


Pender) “Dwr IltR( 1 JP1,K)*=DYJ)/(DYPI+DYJ 
Boeing) DYMI+R( TJM, K)*DYJ)/ (DYM1+DYJ 
RE=(R(1I,J,K)*DKP1+R(IP1,J,K)*DXI)/(DXP1+DXI 
RW=(R(I,J,K)*DXM1L+R(IM1,J,K)*DXI)/(DXM1+DXI 
RE-(R(L,J,K)*DZPL+R(1,J,KP1)*DZK)/(DZP1+DZK 
RB=(R(1I,J,K)*DZM1+R(1I,J,KM1)*DZK) / (DZM1+DZK 
CN=RN*V(1I,JP1,K)*DZXN 
CS=RS*V(I,J K)*DZXS 
CE=RE*U IP1,J,K LO OM AE 
CW=RW*U(I ,J,K)*DYZW 
CF=RF*W I,J,KP1 Dn 
CB=RB*W(I,J,K *DXYB 


SMP(I,J, K)=-CEtCW- CN+CS-CF+CB 


SMP(I,J K)=-(R(1I,J,K)-ROD(I,J,K) )*VOL/DTIME-CE+CW-CN+CS-CF+CB 


SORSUI IS ACTUAL MASS INCREASE OR DECREASE FROM CONTINUITY 
BOUATUON , THIS WILL COMPARE TO SOURCE 


SORSUM=SORSUM+SMP(I,J,K) 
RESORM IS SUM OF THE ABSOLUTE VALUE OF SMP(I,J,K) 
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RESORM( ITER)=RESORM(ITER)+ABS(SMP(I,J,K)) 
700 CONYINUE 

RETURN 

END 


CC RAKKKKKKKKKKKKKKAAKRKKAAKRKRKAKRKRARRRARRR RRA RRR RRA RR RRRRRRRRRRRRRRRRRRARRK 


SUBROUTINE TRID( IST JSP Ksl, for dcr oe PHT ) 
Co KKRAKRKAKAARARRRKKAKRA RA KKARAKKR RR AKA RK AA KR AR RKAKKARKARR A RKKREKAREKRERERK 

COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 

& ,NIPZ,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 
Boer ee a hee Oe eee tO ee ae 1c ao rt nn 

& AS(2Z,16,32) ,AF(22,16,32) ,ABi 22) eopeee 

& SP(22,16,32) ,SU(22,16, 32) RC 22 eens 
DIMENSION A(99) ,B(99) ,C(99) ,PHI(22,16,32) 


c GOTO 405 

TS Sls lst 
Sean eoe 
CC LSP jo. 
DO 100 J=JSTI,JSP 
DO 100 K=KST,KSP 
DO 101 f-I[si7 1SF 








A(1)=AE(I,J,K 
B(I)=AW(I.J.K 
C(I)=AN(1I.J,K SPHI(T, J+) .R) RS (1, J R)SPHE(T,I-1 (Rp 
&  +AR(L J RyAPHT Gd Ke HABIT 9 K)*PHI (I, J,K-1)+SU(1, 0, Ko 
TERM=1./(AP(1,J3,K)-B(1L)*A(I-1) 
A T)=A (1) TERY 
C(1)=(C(1)+B(I)*C(I-1))*TERM 
IF (ABS(A(I)).LE.1.0E-70) A(I)=0.0 
IF (ABS(B(I)).LE.1.0E-70 Bit =0.0 
IF (ABS(C(1)).LE.1.0E-70) C(1)=0.0 








101 CONTINUE 
PHI(ISP,J,K)=C(ISP) 
ISTA=IST+1 
DO 102 II=ISTA,ISP 
I=IST+ISP-II 
IP1=I+1 
PHI(I,J,K)=A(1)*PHI(IP1,J,K)+C(I) 
102 CONTINUE 
100 CONTINUE 


DO 2O00 J=Jsr JGe 
DO 2000 K=KST.KSP 

ee oe eee 
PHI(ISP+1.J,K)=PHI(IST,J,K 
2000 CONTINUE 


JSniil=ss rai 
eee =o 
C(JSTM1 )=0. 

DO 200 K=KST,KSP 

DO 200 I=IST,ISP 

DO 201 J=JST,JSP 

A(J)=AN(I,J,K 

53 =AS(I,J,K 

Cidp=RE( 1, J ,K APE J ed Joan (3 





eee ona ea 
& tear (t J,K)“PHIiCL J hee es K)*PHI(I,J,K-1)+SU(1I,J,K) 


TERM=1,/(AP (IJ, K)-B(J)*A(J~1) 


c 


A(J)=A(J)*TERM 
C(J)=(C(J)+B(J)*C(J-1) )*TERM 

IF (ABS(A(J)).LE.1.0E-70) A(J)=0.0 
IF R38 B(3}) {0.10870} B 3}=3:0 
IF (ABS(C(J)).LE.1.0E-70 ) Ca) 00 





201 CONTINUE 
PHI(I,JSP,K)=C(JSP) 
JSTA=JST+1 
DO) 2020do=ocme Ge 
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J=JST+ISP-JJ 
JP1=J+1 
PHI(I,J,K)=A(J)*PHI(I,JP1,K)+C(J) 


202 CONTINUE 
200 CONTINUE 


DO 2001 J=JST,JSP 
DO 2001 K=KST,KSP 
ae ee See ee 
woebovortl,J ,K)=PHICIST,J,K 


2001 CONTINUE 


601 


Roltl=Kst=1 
een =0. 
C(KSTM1)=0. 
DO 300 I=IST,ISP 
DO 300 J=JST,JSP 
DO 301 K=KST,KSP 

















A(K)=AF(I,J,K 
B(K)=AB(I,J,K 
C(KY=AE(I,J.K SPHI (I+1, oP JK) AW(I,Jd, ie ee 
+AN(L,J3,K)*PHI(1I, J+1,K)+AS(I,J,K MG Woe su idk) 
TERM=1./(AP(I,J,K SB (K) RACK 1) 
a(k)=a ( ATERM 
C(K)= K) +B (K) *C(K= 1) )ATERM 
IF ABS nN K .OE-70) A(K)=0.0 
IF (ABS(B TE 7 OE-70) B(K)=0.0 
IF (ABS(C ier t On-70e GK )=0e0 
301 CONTINUE 
PHI(I,J, KSP)= C(KSP) 
KSTA=KST+ 
DO 302 Renee KSP 
K=KST+KSP-KK 
KP1L=K+1 
PHI(I,J,K)=A(K)*PHI(1I,J,KP1)+C(K) 
302 CONTINUE 
300 CONTINUE 
DO 2002 J=JST,JSP 
DO 2002 K=KST_KSP 
Beene 2 Purse. 
PHI(ISP+1,J,K)=PHI(IST,J,K 
2002 CONTINUE 
GOTO 700 
4405 CONTINUE 
405 KSP1=KSP+1 
B(KSP1)=0. 
C(KSP1)=0. 
DO 600 II=IST,ISP 
I=IST+ISP-II 
DO 600 JJ=JST,JSP 
J=JST+ISP-JJ 
DO 601 KK=KST,KSP 
K=KSP+KST-KK 
KP1L=K+1 
A(K)=AF(I,J,K 
B(K)=AB(L.J,K 
C(K)=AE(I,J,K)*PHI(I+1,d, RYgBW(T K ‘PHI (ToL, ie TK) TAN(T, J,K)* 
Sey R)+RS I,J,K)*PHI(I WK)+SU(I,J,K 
TERM=1./(AP(I,J,K)-A KY *BCREL)) 
Be} (K)*TERM 
K)= a re: (K+1) )*TERM 
IF (ABS/A(K)).LE.1.0E-70) A(K)=0.0 
IF ) K)).LE.1.0E-70) B(K)=0.0 
IF (ABS(C(K)).LE.1.0E-70) C(K)=0.0 
ONTINU 
PHI(I,J RST) =C(KST) 
KSTP1=KST+1 
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DO 602 K=KSTP1,KSP 
PHI(1I,J,K)=B(K)*PHI(I,J,K-1)+C(K) 

602 CONTINUE 

600 CONTINUE 


DO 2003 J=JST,JSP 

DO 2003 K=KST.KSP 

PHT TST) oe 
PHI(ISP+1,J,K)=PHI(IST,J,K 
2003 CONTINUE 


JSPL=JSP+1 

eee =0. 
C(JSP1)=0. 

DO 500 KK=KST,KSP 
K=KST+KSP-KK 

DO. 500 IT=IST Ise 
P=TSTrise= ik 

DO 501 JJ=JST,JSP 
Jmuor tool sod 
JP1=J+1 
A(J)=AN(I,J,K 

B(J)=AS(I,J, iK 
C(J)=AE(I,J,K)*PHI(I+1,J, At +AW 





i 


K)+AF(I,J,K)* 
Ct) ‘ 


i 





( 
is PHI tere Pot J, KS*PHI 
aa L Aart J,K)-A(J)*B(J+1)) 
rsh C J)#8(3) 8c(341)) TERN 
as es On haecel 
ABS(B(J ieee a Coa Ovmee 
(ABS €/g) ene. 1 0s- omc 
501 

PHI(L, 81 1) =C(JST) 

JSTP1=JS 

DO 502 32 sSTP1 JSP 

PHI(I,J,K)=B(J)*PHI(I,J-1,K)+C(J) 

502 CONTINUE 
500 CONTINUE 

DO 2004 J=JST,JSP 

DO 2004 K=KST.KSP 

PHI 1ST-1,J,K)=PHI (ISP, 4,8) 

PHI(ISP+1,J,K)=PHI(IST,J,K 
2004 CONTINUE 

ISP1=ISP+1 

B( 1SPl =O, 

c(ISP1)=0. 

DO 400 JJ=JST,JSP 

J=JIST+ISP-JJ 

DO 400 KK=KST,KSP 

K=KST+KSP-KK 

DO 401 II=IST,ISP 


d= ot ae) 2 = el 
IP1L=I+1l 
Tuk 


A(I)=AE 
Dink 


B(I)=AW ) 
C(I)=AN(I_ J. K)*PHI(I, J+, Ages (T 
= PHICL J Reap on 
TERM=1. / AP(I,J,K)-A T9*B (HL) 
B (1 =B(I)*TERM 
I my f)48(1)*c(T#1)) TERN 








ft & Jie Bai: ,J, Ke 











IF (ABS(ACI ) LE wR = 19) al 

Leese s (Ba LE. a OE-70)) »8\ £)=0-9 

EE ee Cer LE.1.0E-/0)@¢e) Gee 
401 CONTIN 

PHI (IST, J R= Crist) 

ISTP1=IST+ 


DO 402 I= enea TSP 
PHI(I,J,K)=B(1L)*PHI(I-1,J3,K)+C(I) 
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AANAANAANANAINANIANINA 


402 CONTINUE 
400 CONTINUE 


DO 2005 J=JST,JSP 

DO 2005 K=KST.KSP 

ee etek) 
PHI(ISP+1,J,K)=PHI(IST,J.K 
2005 CONTINUE 


700 CONTINUE 
RETURN 
END 


KREREKRKRRRRKRRRKRKRRRRKRKRRRKRKRKRKRKERKEREKRKRKRKRKRKRKRKRKRKRKKRKEKRKAKARKAKAKRKRKAKAKAKRKAKKRKE 


BLOCK DATA 
KAAAKKAKKAKKAKKAKKKKKAKKAKKKKKKARKRKAKKKKRKAKKKKAKARKKKKARKKKKKKKKA 


COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 
COMMON/BL12/ NWRITE,NTAPE,NTMAXO ,NTREAL, TIME,SORSUM, ITER 
COMMON/BL14/HCOEF , TINF, CNT, ABTURB, BTURB, VISL, VISMAX , OCORRT, PM1,PM2 
COMMON/BL16/ CONST1,CONST2,CONST3 , CONST4, CONST6 ,NT,UO,H, UGRT , BUOY, 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP, TWRITE, TTAPE, TMAX,GC,RAIR 
DATA NIP2,NIP1,NI,NIM1/23,22,21,20/ 
DATA NJP2,NJP1,NJ,NJM1/17,16,15,14/ 
DATA NKP2,NKP1,NK,NKM1/33,32,31,30/ 
DATA NAP1,NA,NAM1,NBP1,NB,NBM1/9,8,7,27,26,25/ 
DATA UO,TA,PRT,RHOO,CPO,VISO,NTMAXO/ 
& 1.0,555.86,1.0,0.0714,0.24,1.56E-4,0/ 
DATA HCOEF,TINF,CNT,ABTURB, BTURB/12.0,1.0,0.2,2.0,1.0/ 
DATA GC, RAIR/32.17,53.34/ 
DATA QCORRT,PM1/1.0,0.9/ 


KREEKKKKKKRKEKRRKEKRKKRKEREKKRRRARKRRKRKRRKRRKARKRRRRRKRRARKRRERRRKRRRRRRKRRKERERRRRRKK 


SUBROUTINE GRID 

RAEEKKKRKKKKKKKKKKKKRERKKRKREKEKKRKKRKRKKRKRKRKRKKRKKKKRKKKKRKRKKRKRKRKRKRRRRAKRRKRKRERSE 

COMMON/R4/XC(93) , ¥C( 93) ZC(93) .¥5(93) .¥5(93) .25(93) 

& DXXC(93) ,DY¥C(93) ,DZZC(93) , DXXS(93) ,DYYS(93) ,DZZS(93) 

COMMON/BL1/DX,DY,DZ,VOL,DTIME, VOLDT, THOT, TCOOL, PI,Q 
COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 

& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN ,NCHIP,NJRA,NWRP 


ARK RENERATION OF GRID 


PI=4.*ATAN(1.) 

Ee cone oh 
DY=1./FLOAT(NJM1~-2 

Seed or) EAE 

DZ=PI /FLOAT (NKM1-NB+NA~2) 


DO 19 I=1,NI 
XS (I)=(1-2)*DX*2.0*PI 
19 CONTINUE 
XS (1)=-DX*2.0*PI 
X§(2)=0.0 
XS (3)=0.01*2.0*PI 
DO 19 I=4,13 
XS (I)=(I-3)*DX*2.0*PI 
19 CONTINUE 
eee 13) 
X$(13)=KS(14)-0.01*2.0*PI 
DO 18 I=15,NIP 
XS (I)=XS(14)+(I-14) *DX*2.0*PI 
18 CONTINUE 
XS (NIP2)=XS (NIP1)+XS(3) 
YS (1)=0.000 
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Ce 
Ce 


ANAM]! 











YS(2)=0.025 
YS(3)=0.05 
DO eee 
¥S(J)=(J-2)*DY 
3 6 GCONEINVE 
YS(NJP1)=YS(NJ) 
YS(NJ =YS NSE oe ee 
YS(NJP2 )=YS(NJP1)+3./8./12./9 
DO 3 J=4,NJP2 
YS(J)=(J-3)*DY 
3 CONTINUE 
DO 4 iS 1,NIP1 
IP1=I+ 
bauic(?)= =XS(IP1)-XS(T) 
DXXC(NIP2)=DXXC(NIP1) 
DO 5 I= ae NIP2 
IM1=I- 
BRR DIE. 5% (DXXC(I)+DXXC(IM1) ) 
5 CONTINUE 
DXXS (1)=DXXS (2) 
DO 7 ae 1,NJP1 
JP1=J+ 
Dyic(3)= =YS(JP1)-YS(J) 
7 CONTINUE 
DYYC(NJP2)=DYYC(NJP1) 
DO 8 J=2,NJP2 
JM1=J-1 
DYYS(J)=.5*(DYYC(J )+DYYC(JM1) ) 
8 CONTINUE 
oe 
DO 20 I=1,NIP2 
eee) =15 (£)#DRKC(I)/2, 0 
20 CONT 
DO 21 oo P2 
VeCa) =¥5 (5)#D¥YC(I)/2. 0 
21 CONTIN 
Be 9K NA 
ZS(K)= SUR: -3) *DZ 
9 CONTINUE 
DO 30 K=NBP1,NK 
ZS (K)=ZS (NA)+(K=-NB) *DZ 
30 CONTINUE 
DO 31 K=NAP1,NB 
Z2S(K)=PI/2. 
31 CONTINUE 
ZS(1)=0.0 
Z95(2)=0.05 
Z2S(3)=0.10 
ZS (NKP1 )=ZS (NKM1 ) 
ZS (NK)=Z2S (NKP1)-0.05 
as a, Se ae 0.10 
2S (NKPZ2 )=ZS(NKP1)+0.05 
ZS eh ee ere 
Z2S(NKP1)=ZS eae 
ZS (NK)=ZS (NKP2) -0 





DO 10 K=1,NKP1 
IF {k.G .GE.NA.AND.K.LT.NB) GOTO 10 
Dezc(K)= ZS(KP1)-ZS(K) 


10 CONTINUE 


22 


DO 32 K=NA,NBM 
DZZC(K)=2. 654/ (NB- NA) 
32 CONTINUE 


DZZC (NKP2 )=DZZC (NKP1 ) 


DO 11 K=2,NKP2 

Be eee EQ. NA.AND.K. EQ.NB) GOTO 11 

D2z8 (K)=. 5% (DZZC(K)+DZZC (KML) ) 
Pi ScOnrIiuEe 


p225(1)=DZZS (2) 

DO 22 K=1,NKP2 

IF (K.GE.NA.AND.K.LT. NB) GOTO 22 
Z2C(K)= ZS (K)+D22C(K)/2.0 


22 CONTINUE 
DO 33 K=NA,NBM1 
ZC(K)=PI/2. 
33 CONTINUE 
oe Ne ieee ec ih ece 
Mier er l).LT.0.0) YC(1)=0.0 
PRINT 
SR INPUT COORDINATE OF THE TANK IN THE ORDER OF ' 
S1SUU NE es iD XS YS 2S XC ee. 
& ZC DXXS bis DZZS DAXC 
oe YC DZZC! 


DO 12 I=1,NKP2 
WRITE(6,102) I, RSI) 5 (1) ZS(I),X cht ). AEF az 
DXXS(I),DYYS(1),DZz DXXC 
102 FORMAT (2X,14,12(2X,F8.5) ) 
12 CONTINUE 


RETURN 
END 


ay 
t) bvvecr) pezc(1) 


RRAERRKKKKRKRRRRRRKARRRKAKARKRKRK 


FUNCTION RL(T J K/MIN) 


CARKKKKKRKAKRKKRKKKKKAAKRRKRRKKKRKERKERKRRARKERKKKRRRRRRRKRKRKRKRKKKRRRRRARRRRRKK 


E WHEN M OR N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
E HALF CELL (STAGGERED CELL) * 
E WHEN M OR N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
C HALF CELL (STAGGERED CELL) * 
c WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
C HALF CELL (STAGGERED CELL) * 
€ WHEN M = N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
é WHOLE CELL x 
€ WHEN M = N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
C WHOLE CELL x 
C WHEN M = N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
é WHOLE CELL * 
CARKRKARKKKRRKRKKKKKRKARRRKRKKRRRRKRRERERRRRRRKRRKRREKRKRRRRKRRRRRRKRRRKKKKRR:E 

COMMON/R4/XC (93) , ¥C(93) ,ZC(93) ,XS(93), ,¥S(23) ,25(93 F 

& c(93),Dyyc(93) ,DzZZC (93) _DxxS(93) , DYYS(93) ,DZZS(93) 

X1=Xc(I 

X2=vc(J 

X3=ZC(K 

DXL=DKXC 


IF(M.EQ. a core 100 


IF(M.EQ. 1. OR.N.EQ. L X1=XS(I) 
IF(M.EQ.1.OR.N.EQ.1) DXL=DXXS(I) 
IF(M.EQ.2.0R.N.EQ.2) X2= oe 
IF(M.EQ.3.O0R.N.EQ.3) X3=ZS(K 
GOTO 1000 

100 TF(M. EQ. 1) at ts 

EQ. DXL=DXXC(I-1) 

re i" EQ.2) X2=yYC(J-1) 


aA 


TE(M EO. 35) eXS=ZeCK=-1) 
1000 CONTINU 

XL=K2*SIN(K3)*DXL 

RETURN 

END 


C KRREEKKKAAKKKKRKKKRKEKRKRKRKAKEKK 


AER EERE RR AREA EA ELA 


C 
CARKKKKKKRKKRKKRKRKRKRRKERKRKKKRRKRKRKRKRKERKRRKRKRKRKRRKRRRKEKRRKRRERRKRKRKRKRKRRKEKRKAKKKKKRERE 


C WHEN M OR N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
C HALF CELL (STAGGERED CELL) * 
C WHEN M OR N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
C HALF CELL (STAGGERED CELL) * 
C WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
C HALF CELL (STAGGERED CELL) * 
C WHEN M = N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
C WHOLE CELL * 
C WHEN M = N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
c WHOLE CELL = 
C WHEN M = N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
C WHOLE CELL * 
CAKRKKKAAKRKAKKKKKKKRKKERE RRR RAKKRKKKRKRKREKRKKKKRKKRERKKRKEKKKRKERKKKKRKKKRK 

COMMON/R4/XC(92) ,¥C(93) ZC (93) wees) oe 

2 DxXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) , DYYS(93) ,DZZS(93) 

X1=XC(I 

X2=YC(J 

X¥3=ZC(K 

DYL=DYYC(J) 

IF(M.EQ.N) GOTO 100 

IF(M.EQ.2.OR.N.EQ.2) X2=YS(J) 

IF(M.EO.2.0R.N.E0.2) DYL=DYYS(J) 

IF(M.EO.1.0R.N.EO.1 Ki=KS(T) 

IF(M.EO.3.OR.N.EO.3) X3=ZS(K 

GOTO 1600 

100 IF(M.EQ.2) Keaye(I-1) 

IF(M.EO.2) DYL=DYyC(J-1) 

IF(M.EO.1 shat 

IF(M.E0.3) X3=ZC(K-1 

1000 CONTINU 

YL=1.00*DYL 

RETURN 

END 
Cc KEKE 


,ELNCTION, ZL(T 3 RMN) 


c 
CRKKKKAKKKAAKKKAKKKKKKKKRKAKRKAKKAKKRKRKKKKKRKKRAKKKKKKAKKKKKKKRKRKRKKRKKAKKAKRKKKKE 


Cc WHEN M OR N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
C HALF CELL (STAGGERED CELL) a 
C WHEN M OR N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
C HALF CELL (STAGGERED CELL) * 
© WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
e HALF CELL (STAGGERED CELL) a 
e WHEN M = N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
C WHOLE CELL a 
e WHEN M = N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
c WHOLE CELL a 
c WHEN M = WN = 3 THEN SHIFT CELL IN THE NEG Z DIRBGITe)) ONE* 
CROAT oR RISER CEE AEE RRR 


COMMON/R4/XC(93) ,¥C(93) 26(93) 45 (93) a 2 

DKXXC(93),DY¥YC(93) ,DZZC(93) , DXXS(93) , DYYS(93) ,DZZS (93) 

COMMON/BL7/NI ,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 

oo NEPe NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP ,NJRA,NWRP 
=XC 

X2=YC 7 

X3=ZC(K 


214 


AAA OA 


200 


100 


1000 


2000 


300 


BZE=—pzac(K} 
IF(M.EQ.N) GOTO 100 


Lat feo). 2. OR.N.EQ.2 Rees 
IF(M.EO.1.OR.N.EQ.1) X1=XS(I 
IF(M.EO.3.0R.N.E0.3) GOTO 200 
GOTO 1000 

CONTINUE 

IF (M.EQ.NA.OR.M.EQ.NB) GOTO 2000 
K3=Z5(K 

DZL=DZZS (Kk) 

GOTO 1000 

TE (MEQ. 3) X3=ZC(K- 1) 

IF(M.EQ0.3) DZL=DZZC(K-1) 
Teme. 2) X2= a i 
TeieeO.1) XLl=Kc 
CONTINUE 

A= x22 

GOTO 300 

CONTINUE 

DeLLSpzzc (K-21) 

DaeaDzZae K 

IF (M.EQ.NB) DZL1= ee 

IF (M.EO.NB) DZL2=DZZC(K=-1) 
ZL=(X2*DZL1+DZL2) /2. 

CONTINUE 

RETURN 

END 


RRR yp 


FUNCTION SILIN(V1 Dl bZ) 
eee ee eee x 
IF eee Pe 2p. 0.0 Di=01 
IF (D1.E0.0.0.AND.D2.£0.0.0) D2=0.1 
SILIN=(V1*D2+V2*D1 ) / (D1+D2 
RETURN 
END 


KRERKRKKRKKKKRRKRKRKRKKKRKRKRKRRRRKRKRKKRRKRRRRRRRRRKRKKRKKKKI 


gEUNCTION BILIN(V1 V2 D1 /D2,V3,V4,D3 D4, D5, D6) 
y2=(V 1*D2+V24D1) /(D1+D2 

V34=(V3*D4+V4*D3 /(D3 
BILIN=(V12*D6+V34*D5) / (D5+D6 ) 

N 


KEEKKKKRKRKRKRRKRKRKKRKKK 


SUBROUTINE STRESS 
KRREKERKRRKRKRRRKEKRKERE 
ONSET Ee ,YC(93) ,Z2C(93) ,XS(93) ,YS(93) ,Z28(93 ie 
. /DYyc(93), D2ZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 
COMMON/BL1/DxX, Ss noe VOL,DTIME,VOLDT, THOT ,TCOOL,PI,0 
COMMON/BL7 /NI., NIP1,NIM1.NJ,NJP1,NJM1,NK,NKP1,NKM1 
NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP ,NJRA ,NWRP 
COMMON/BL20/SIG11(22,16, (32), S1G12{22, 16, 32), $1622(22, 16,32 
Ponemisne Io s2)5siCea( 22) 16.32). S1G33(22,16,32 
COMMON/BL22/TCHPB 10) ,NCHPI(10) , JCHPB(10) ,NCHPJ(10) , KCHPB(10), 
NCHPK(10) . CHE (19) /CPS(10), CONS (10) 
COMMON/BL32/ 1T(22,16,32),R(22,16,32) ,P(22,16,32 
fe 1 32) ,U(22,16, 32) U2) le 32), W(22, 16, 32) 
COMMON/BL37/ VIS(22 ,18 32) gCOND(22,16 32) , NOD 22,16,32) ,RWALL(560) 
,CPM(22,16,32),HSZ(3,2) ,NHSZ(22,16,32) , RESORM(93) 


R 2 DM WM LK 


DO 100 K=2,NK 
KP2=K+2 
KP1=K+1 
KM1=K-1 


20S 


KM2=K-2 
DO 100 J=2,NJ 
JP2=J+2 
JP1l=J+1 
JM1l=J-1 
JM2=J-2 
DO 100 I=2,NI 
IP2=I+2 
IPl=I+1 
IMlL=I-1 
Pi2=L=2 


c CENTRAL LENGT 


DXel=exGie leur 
Desire 
DXM1=XL(IM1,J, 


DYPI=YoOC Led 
DYJ =YL(I,J_, 
DYM1=YL(I,JM1, 


DZPi=Zb( 17d , Kea 
DAK =2L(1 Joke 
D2ZM1l=Z2L(1,J,KM1, 


Css SURFACE LENGT 


DAN=XL(1I,JP1 
DXS=AL 
DAF=XL 
DAB=AL 


DYF=YL 
DYB=YL 
DYE=YL 
DYW=YL 
DZE=2L 
DZW=ZL 
DZN=2L 
DZS5=2ZL (1, 


Ca CENTRAL LENGT 


DXEE=XL 
DAE =XL 
DAW =XL 
DAWW=AL 


Bn 


i oe eo oe 





rg 
_ 


THE CONTROL VOLUME 


~ 


~_ * 
~~ 


ty tds 
me Rc, GGG, 


rg~ “= 
mag QanKn AX 


MRM HAH Ree 


cic, 


THE STAGGERED CONTROL VOLUME FOR T 


DYN =YL 
DYS =YL 
DYSS=YL 


DZRR=Z2bL\ de 
DZF =ZL(1I,J,KP 
DZB =2Zb( bd kk 
DZBB=2L(1I,J,KM1 


UBAR=0.5*(U(IPI1, 
VBAR=0 .5*(V 
WBAR=0 .5*(W 


DXY=DXIADYJ 
DYZ=DYJ*DZK 
DZX=DZK*DXI 
SIG11(1I,J,K)=2.*VIS(1,J,K)*((UC@ZP1 J, K)-U( 1g ot 
& Ve DXY 
& +WBAR* (DXF -DXB ) /DZX) 
SIG22(I,J,K)=2.*VIS(1,J,K)*((V(1I,dP1,K)-V(I,J,K))/DYJ 
& Hath bbe DYZ 
& +UBAR* (DYE-DYW) /DXY) 
$1G33(1,,K)=2. *vz5 (1.1.8) *((W(1 3, REL) 
& +UBAR* (DZE-DZW) /DZX 


216 


e 
S 
C 


c 
g 


& 
100 CONTINUE 


AKKK 


& 
300 CONTINUE 


AKKK 


ees 


51613 (I, ,J,K)=SIG13(I,J,K)+VIS13* 


+VBAR* (DZN-DZS) /DYZ) 


DO 200 K=2,NKP1 
KP2=K+2 
KP1=K+1 
KM1=K-1 
KM2=K-2 
DO 200 J=2,NJP1 
JP2=J+2 
JP1=J+1 
JM1=J-1 
JM2=J-2 
DO 200 I=2,NIP1 
IP2=I+2 
IPl=I+l 
TML=1<1 
IM2=I-2 


FOLLOWING DX, DY, D2, ARE BASED ON THE LOCAL CONTROL 
VOLUME FOR SIG1Z 


IF (J22022)" Goro. 300 


DXAN=XL(I,J_ ,K, 
DXS=XL(1I,JM1,K 
DYE=YL(I ,J 
DYW=YL(IM1, 
DXAI=XL(1 

DYJ=YL(I 


DYN=YL(I,J_, 

DYS=YL(I,JM1, 

DXE=XL(I J, 

DAW=XL(IM1,J, 

care Pe ne orn, 
V Vii) hk OA DAW 
(V 


an ate Pe PON DiS, 
Verso hoe viS Md, JMleK) DYN, DYS, DXE, DKW) 


SIGl2(1 0 ,k)= visi2*((V(I,J,K)-V(IM1,J,K))/DXI 
-VBAR* (DYE- DYW)/ (DAI* DYJ 

SIG12(I,J,K)=SIG12(I,J,K)+VIS12*((U(I,J,K)-U(I,JM1,K))/DYJ 

-UBAR* (DXN-DXS ) / (DXI*DYJ) ) 


VBAR=SILIN 


FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CONTROL 
VOLUME FOR SIGI3 


DXF=KL(I,J,K Le; 0 


DXB=XL(I.J,KM1,1.0 
DZESZat «66K 3 0 
DZW=ZL(1IM1,J,K,3,0 
Perere(t §.J,K,1.3 
P2R=7ntr ,J,K,3,1 
p2n—-2Zn(l Jock .1,0 
DZB=ZL(1I,J,KM1,1,0 
DXE=XL(I |J,K,3,0 
DXW=XL(1IM1,J,K,3,0 
IF (DZF.EQ.0.0.0R.DZB.EQ.0.0.OR. D2E. EQ. 0.0.0R.DZW.EQ.0.0) 
WRITE (6,*) I,J,K, DZF,DZB,DZE, 
UBARSSILIN(U(T RY. O(T J. KHLY DZE,DZB) 
WBAR=SILIN(W(1L,J,.K) W(IML.J,K) .DXE .DXW 
VIS13= “RILIN(VIS (1 DR) TSG 1), .DZF,DZB, 
x VIS(IM1,J,K),VIS(IM1,J,KM1),DZF,DZB, DXE,DxXW) 


SIG13(1I,J,K)= VIS13*((W(I,J, K)e W (TM J et 
-WBAR* (DZE-DZW ) (DRI*DZ 
vo J,K)-u(1,J RY) /DaR 


-UBAR* (DXF-DXB)/ (DXI*DZR) ) 


mad 


C xxKK FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CONTROL 
C VOLUME BOX SiGzs 


DZN=ZL(I,J_ ,K,3,0 
DZS=ZL(1I,JM1,K,3,0 
DYF=YL(I,J,K ,2,0 
DYB=YL(I,J,KM1,2,0 
DZK=ZL oes 
DViawer hes 
DYN=YL(I,J. ,K,3,0 
DYS=YL(1I,JM1,K,3,0 
DZF=ZL(I,J,K_ ,2,0 
DZB=ZL(1,J,KM1,2,0 
ce ee oe /JML, RY Pe 
VBAR=SILIN(V(I,J,K),V(L,J,KM1) , DZF,DZB 
VIS23= BILIN(V1S(1 Bak)’ /VIS(I,JM1,K a 
& VIS(I,J3,KM1),VIS(I,JM1,KM1),DYN,DYS, DZF,DZB) 


$1G23(1,J,K)= VIS23*((V(I,J,K) “VAI J,KM1))/DZ2K 
& -VBAR* (DYF- DYE) / (DZ KADY J 
$1G23(1I,J,K)=S1IG23(1,J, Ke oe K) NCL JML,K))/DYJ 
& WBAR*(DZN-DZS)/(DZK*DYJ) ) 
200 CONTINUE 


DO 110 I=1,NIP1 
DO 110 J=1,NJP1 


C WRITE (6, 998) ee eee ees s}. sr623(2/3 ah ees ee 
Cc & 2Z2(1,J,59),SIGZ3(1,5,5),s1Gss ee 
998 FORMAT (2X,14,1K,14,6(1X,Ell. 4)) 
110 CONTINUE 
RETURN 
END 
c 
KKK RRR x RRA * KK x x RRKRERKRKKRKAKRRRERRAKE 


SUBROUTINE CALO(LL 
KA KI FFARR KK KKK KIKI KIKI KIKI KIKI KKK KK KKK KKK KKKAKKKKKKKK 

COMMON/BL1/DX,DY,DZ,VOL, DTIME, VOLDT , THOT, TCOOL,PI, 
COMMON/BL12/ NWRITE,NTAPE ,NTMAXO , NTREAL, TIME, SORSUM, ITER 
COMMON/BL14/HCOEF , TINF, CNT ,ABTURB , BTURB , VISL,VISMAX, OCORRT, PM1 , PM2 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4, CONST6 ,NT,UO,H,UGRT, BUOY, 

& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA, DTEMP, TWRITE, TTAPE, TMAX,GC,RAIR 
COMMON/BL34/ HEIGHT(22,16,32) ,REQ(22,16,32), 

S SMP(22,16,32), SUPP (22 , 16,32), PP (22, 16,32), 

S DU(22,16,32) ,DV(22,16 132) DNi22 emer 
COMMON/BL39/ALEW, PCURVE, CONSRA, PCURM1 , PSOUTH , QCORR, PERROR 


C *** IN MANY OF THE FOLLOWING LINES A TEMPORARY CORRECTION FOR 
Cc % ADJUSTING QQ TO AGREE WITH THE PRESSURE HAS BEEN APPLIED. 


XTIME=TIME*H/UO 


Te Chie s 1) THEN 
LE (na Ee eran 1) THEN 
REOLIO.S evcaae - 5S*XTIME**2-2 .388310E-G*XTIME**3+ 
DPD =9.789522E-5*XTIME*2-2 . 3883108 -e7xTi Miwa 


ELSE 
PCURVE=0 .0052+.81264E-3*XTIME-. 226045 - - 55AXTIME**2+ .27262E-8*XTIME** 
& 3-.115621E-11*XTIME**4+REO(10,9,16 
DPDT=.81264E-3- .22604E-5*XTIME*2¢ . 27262E-8*XTIME** 
& 2*3 .0-.115621E-11*XTIME**3*4 
ENDIF 
Q=1.0E8*DPDT 
pa os 4134/60. /60. 


Eoae 


if (LL .eq. 2 ) then 
CG THIS USES A CURVE FIT THROUGH THE BURNRATE DATA GIVEN BY NRL 


218 


Tibste=20 


BURNR1= 5.4576748 +0.18815346*XTIME-.20153996E-O3*XTIME*%*2 
Pune —eolo7G) 6 SS LoCo 9o7K] IME=.7342952E-03*XT IME**2 


& *.S0945S10E-06*XTIME**3 


ie (XTIME woos L000) THEN 


BURNR= BURNR2 + 1.3117-.013117*XTIME 


EESE 
BURNR = 
ENDIF 


IF(XTIME .LE. 300) GO TO 60 
IF(BURNR2 .LT. BURNR1) THEN 
BURN 


BURNRZ 


R = (BURNR1 + BURNR2) / 2 


GO TO 60 
BLE 

ee bie <i. oF Ber GO TO 60 

IF (ITHST .EQ. 
BURNR3 = URNRZ 
PbS = 

ie 

BURNR = BURNR3 

ENDIF 
60 Q = BURNR*2.2046*9612./3600. 


EC TAbSsGhVES O IN eBLuy/ SEC 
ENDIF 
65 CONTINUE 
RETURN 
END 


Cc 
KA x x 
SUBROUTINE RADHT(T4WALL 


x x x KK 


VEMXC ) 
FR KKK RRR RRR RE RK RR EI IF KF eRe tek ee te tek ae de dese te oo aes dee He ow A 


COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
eo NZ, NKP2, NA, NAP1, NAMI, NB, NBP1, NBM1, RRUN, NCHIP ,NJRA, NWRP 
COMMON/BL16/" CONST1, CONST2, CONST3, CONST4, CONST6, NT, UO, H, UGRT, BUOY, 
eer, rm, CONDO, VISO, RHOO, HR, oa TR, DEEME? STWRITE ‘TTAPE, ‘TMAX, Ge RAIR 


COMMON /BL32/ 1(22, 16, SZ /R(22,1 


682) Poe 


p32 
eme2e U(2 16 2h ee, hoy 53). W 


WeZZ 
COMMON /BL ie 18 (22" b 


16,32 
COND(22,16,32), )atg2, 16, oN RWALL (560) 


pembicad le. cya Hee (3. Zz) NHSZ(22, ley s2), RESORM (93) 
COMMON/BL39/ALEW, PCURVE, CONSRA, PeUnit, PSOUTH, QCORR, PERROR 


DIMENSION Ee 579) , T4WALL (579) 


DO 4010 K=3,NKM1 
DO 4010 I=2,NI 
I= (K- 3)*(NI-1)+I- 


TAWALL(II)= TCONSRA*T (I, NJRA,K)*T(I,NJRA,K)*T(I,NJRA,K)*T(I,NJRA,K) 


4010 CONTINUE 
C RADIATION FROM THE FIRE TO THE WALL 


DO 4011 J=3,9 
JJ=561+9-J 


Romeo 14 16,J,16)+T(17,J, ee Us dy Le) 


T4WALL (JJ )=CONSRAXAVT*AVT*AVTAA 
4011 CONTINUE 
C 


DO 4012 J=3,14 
JJ=568+J-3 
AVT=0.25*(T(6,J,16)+T(7 


Ie) ea epee) 7,17) ) 


T4WALL(JJ)=CONSRA*AVT AyTeAVES AVT 


ee CONTINUE 


DO 4020 I=1,560 
RWALL(I)=0.0 
DO 4020 J=1,579 


RWALL(I)= SRWALL (I) +VEMRC(, J) *T4WALL (J) 


iy 


4020 CONTINUE 
RETURN 
END 


K*k* x KRAKKKKX * Kx KKK KKK KRX KK KKX KRAKRK 


SUBROUTINE GLOBE 


RAK KAKKAAAKAKAAAKAKAKKAKAKKARRKAKKAKERAKKRRRARRRKKKAKKKAKRKRRRRKAKKKAKKAKKKE 
x THIS SUBROUTINE CALCULATES THE GLOBAL PRESSURE CORKEGI io = 
ss WHEREBY THE PRESSURE MATRIX IS UPpEAleee 7 
a VARIABLES USED ARE: = 
i SUMT = SUM OF TEMPERATURES x 
a SUMPT = SUM OF PRESSURE OVER TEMPERATURS x 
i. SUPE T. = SUM OF EQUILIBRIUM PRESSURE GVER TEMP * 
- UGRT = CONSTANT 

25 PCORR PRESSURE, CORRECTION * 
JISC RCI IIRC TIO SOR RIT RIOR AR IIT HART TT A TRIN TOR AIA FIAT GOR TIAA TTR 


COMMON/BL7/NI ,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
& ,NIP2Z,NJPZ,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4, CONST6,NT,U0,H,UGRT,BUOY, 
& "CPO> PRI CONDe VisG, Bice HR,TR, Ta, Diet Pt ace TTAPE , TMAX , GOV Rae 
CONMON/ BL32/ Ti 229 ie oo E22 16, 32 Pz 
& eee ay a2) a rs aoe = Loy 32 Ere 16432) 
COMMON/BL 4/ HEIGHT (2 16 SNe REQ 22n HO; SZ 





iS SMP(22,16,32), SUPP (22, 16,32), PP(22,, ‘8, 32), 
& DU( 22,1632) DV( 22,16 32) one 
COMMON/BL37/ VIS(22,16, 32), COND (2 a 353 See 16,32) ,RWALL(560) 
Be /CPM(22,16,32),HSZ(3,2) ,NHSZ(22,16,32) , RESORM(93) 
SUMT=0. 
SUMPT=0. 
SUMPET=0. 
DO 370 I=2,NI 
DO 370 J=2.NJ 
DO 370 K=2,NK 
IF (NOD(I,J,K).EQ.1) GOTO 370 
DXI=XL ra'8'379°9) 
DYJ=YL(I,J,K,0,0,0 
DZK=20( rok 0000 
VOL=DXI*DYJ*DZK 


SUMT=SUMT+1. (T(t, J, K)AVOL 
SUMPT=SUMPT+P(1,J3,K)/T(I 
SUMPET=SUMPET+REQ(I,J,K)* 

370 CONTINUE 
SUMPET=SUMPET/UGRT 
PCORR=(SUMPET-SUMPT) /SUMT 
PCORRN=PCORR 


DO’ 371, t—Teee 

DO 3/1 oH, NIPi 

DO 371) K=1 NREL 

1 K)=P(I, J,K)+PCORRN 
371 CONTINUE 


RETURN 
END 


See 
(1./1.0-1./7(1, 35 peer 


e 
KK* * * 


SUBROUTINE SOLCON 
AK* KRAEKRKEKRKEKKEREKEREREKKAKKKKKKRKKRKRKRKKKEKKAEKKRAEKRKARRKKKRKEKRERKKRAEKKRKKRKKRKKREKKRE 

COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1 ,NKM1 

& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 
COMMON/BL12/ NWRITE,NTAPE ,NTMAXO ,NTREAL, TIME, SORSUM, ITER 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4,CONST6 ,NT,UO,H,UGRT, BUOY, 

& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP ,TWRITE, TTAPE, TMAX,GC,RAIR 
COMON (122 ( Laie /NCHPI(10), JCHPB(10) ,NCHPJ(10) ,KCHPB(10), 

& NCHPK(10), TCHP(10) ,CPS(10) ,CONS(10) 


220 


GCOMMON/ELS7/ Vis( 22) 16, ae BESND(22,16,32) ,NOD( 22,16, ee RWALL (560 ) 
& CEM (220 ue m2. Hogtsac) NHSZ (22, EG: 2, RESORM(9 3) 


DO 402 N=1,NCHIP 
IB=ICHPB(NS 
IE=IB+NCHPI(N)-1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 
DO 405 I=IB, IE-1 
DO 405 J=JB.JE-1 
DO 405 K=KB.KE-1 
COND(I,Jd,K)=CONDO*CONS (N) 
CPM(I,J, AOS =CPS(N) 
NOD nee Ki 





J.EQ.NJ) COND(I,NJP1,K)=COND(I,NJ,K) 

iOe2)) MCOND IJ K)=COND(2,J,K 

I.EQ.NI) COND(NIP1,J,K)=COND(NI,J,K) 

I.EQ.2.AND.J. sEQ.NJ NJ)” COND (1. j+1,K)=COND(2,J, K) 

I.EO.NI.AND. £0. .NJ) COND(NIP1,J+1,K)=COND(NI,J,K) 

J.EO.NJ) CPM(I,NJP1,K)= Sen (I NJ 

I.E0.2) CPM r! ae K)= CPM(2,J,K) 

I. EQ. NZ) CPM(NIP1,J,K)= =CRutN ited * 
EO.2.AND.J.EO.NJ) Te d+1 ,K)=CPM(2,J,K) 
-EO.NI.AND.J.EQ.NJ) CPM(NIP1,J+1,K)=CPM(NI,J,K) 





To iT! 
405 CONTINUE 
402 CONTINUE 
RETURN 

END 


C 


KKK x KRAAK x x x xx x KKK KAKRK KKAK 


SUBROUTINE PTRACK 
KKK KKAKRAAKAKAKAKARAKRARKKAAAKKAKARARARAKAARKAKAKAKAAKAAAKKAAKAKARAAKARKARKAKAKA 
COMMON/BL14/HCOEF ,TINF,CNT,ABTURB,BIURB,VISL,VISMAX ,QCORRT, PM1 ,PM2 
COMMON, BElG/MCONST] /CONST2 CONST3 ,CONST4,CONSTS,NI ,U0,H,UGRT,BUOY, 
CC EO PERT CONDO, VISO, RHOO, HR, Hay, ae DEEMES ‘TWRITE , TTAPE /TMAX, Ger RAIR 
COMMON/BL32/ T(22,16,32) ,R(22,16,32),P(22,16 


ag 

& Ser mi6 oe Y(22, 16,32), v(22, lee 32), /W(22,16,32) 
COMMON/BL34/— HEIGHT(2 16,32) ,REQ(22,16,32 

& S 26 32) si iPr (22, 16,32), oe oo Soe 

iS DU(22,16,32), alee 16,32) ,DW(22,16,32 


COMMON/BL39/ALEW, PCURVE, CONSRA, PCURM1, PSOUTH, OCORR, PERROR 


CC ** THE FOLLOWING PRESSURE TEST IS A TEMPORARY MEASURE TO MODIFY THE 
eC HEAT INPUT TO FORCE THE CALCULATED PRESSURE TO AGREE WITH THE 

GE EXPERIMENTAL PRESSURE. IT WILL BE USED UNTIL ACCURATE HEAT INPUT 
€¢ ** IS RECEIVED. 


eC 
PSOUTH=P(10,9, BO) CONST EREQ (10, ,9,16) 

PERROR=(PCURVE- PSOUTH )/PCUR 

QCORR=1 .0+PERROR- ee SRV ecu URVE 

QCORR=1 .0+PERROR- (PSOUTH-PM1 )/PCURVE+ (PSOUTH-PM1 ) / (PCURVE-PCURM1 )* 

& (PCURVE- PM1)/PCURVE 

OCORRT=QCORRT*QCORR 

PCURM1=PCURVE 

PM1=PSOUTH 


RETURN 
END 


K*K* x KK x x x x * 


SUBROUTINE TCP 
AAK KREAKKKKKRKRKRKRKKKKKKRKKRKKRKKKRKRKKRKKRKKARKKKRRKKRKKRKRKKRKRKRKRKKRRKKKKKKRKRKRKKRKKKAKAKARE 


RARKKARKAAKKKKKAKKKKKAKKKAKKAKKAKKKARAKRAAKAKKARKAAKERAKRARARARKKRKARAARRAKKAKKKK 
= THIS SUBROUTINE CALCULATES THE TEMPERATURE AT THE TERMOCOUPLE . 


22) 


x POSITIONS. x 
KAKEKKKRKRREKRKRKRKRKRKKRKRKRKKKAKRKEKKRKKRKKRKRKRKRKKKKKKRKRKRKKEKKKKRKRKRKRKKKRKRKRKRKRKKKKRKRKRKRKKKKRKKEKRK 
COMMON/R4/XC(93) ,YC(93) 25(93) 45 (93) oe 
DXXC(93) ,DYYCc(93) ,DZZC (93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4, CONST6 , NT, UO,H,UGRT, BUOY, 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA, DIEMP, TWRITE ,TTAPE,TMAX,GC,RAIR 
COMMON/BL32/ T(22,16,32),R(22,16,32),P(22,16, 32 
& 6(22 1632) .U(25,18 32) V2 16 
COMMON/BL38/NTHCO,CX(12),CY(12),CZ(12) ,NTH(12,3) , TCOUP(12) 


DO 5100 N=1,NTHCO 
ITI=NTH(N,1 
JJ=NTH(N, 2 
KK=NTH(N, 3 
VOL=ABS( (XC(II+1)-XC(II))*(YC(JJ+1)-YC(JJ) )*(ZC(KK+1)-ZC (KK) )) 
TCOUP(N)=0. 
DO 5101 I=II,II+1 
III=II+II+1-1 
DO 5101 J=JJ,JJ+1 
JSd=00r oie 
DO 5101 K=KK,KK+1 
RKK=KK+KK+1-K 
WVOL=ABS ((XC(1I)-CX(N))*(YC(J)-CY(N) )*(ZC(K)=-CZ(N)))/VOL 
TCOUP(N)=TCOUP(N)+WVOLAT (III, JJJ, KKK) 
5101 CONTINUE 
TCOUP (N)=TCOUP(N)*TR-273.18 


5100 CONTINUE 


RETURN 
END 
K*kK* x RARARKKKAKRARKRA * KR KKK x KAR * x * * 


SUBROUTINE OUT(NN 
Akk* KRREAKRRKAEKRKKKAKKKRKKAKRKARKARKRKKRAKKKEKKRRKEKRKRAKKARRKRKAKARAKRKKAKAKAKKRKRKRRKRRKRKRKRRRRKAKRKRRKKKE 
COMMON /BL1/DX,DY,DZ, VOL, DIIME,, VOLDI , [HOI Goo rR i) 
COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
& ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 
COMMON/BL12/ NWRITE,NTAPE ,NIMAXO,NTREAL, TIME ,SORSUM, ITER 
COMMON/BL14/HCOEF , TINF,CNT,ABTURB, BTURB, VISL, VISMAX, QCORRT, PM1,PM2 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4,CONST6 ,NT,U0O,H,UGRT, BUOY, 
& CPO,PRT,CONDO,VISQ,RHOO,HR,TR,TA,DIEMP ,TWRITE , TTAPE,IMAA, Gop 
COMMON, BUS 2Z/e1 022) eae RCA ome P(22,,16 , 32) 
nO EO Ce ane ,16,32),Wi22 i6es2) 
COMMON/BL34/ HEIGHT(22,16,32) ,REQ(22,16,32 é 32) 


SMP(22,16,32),SMPP(22,16,32),PP(22, 
COMMON/BL37/ VIS(22, 6 32), COND(22, 16,32) ,NOD(22,16.22), RHAEEIE 


$2? 


es 


DU(22,16,32) ,DV(22,16,32) ,DW(22,16, 32) 
/CPM(22,16, 32) ,HSZ(3,2) ,NHSZ 32) ,RESORM 
COMMON /BL38/NTHCO,CX(12) ,CY(12) ,CZ(12) ,NTH(12,3) , TCOUP(12) 
COMMON/BL39/ALEW, PCURVE , CONSRA, PCURM1 , PSOUTH ,QCORR, PERROR 
XTIME=TIME*H/UO 
IF( NN .EQ. 1) THEN 


C 
Wa ireaG 200) XTIME ,NTREAL, TIME, ITER, RESORM(ITER) , SORSUM,Q 
500 FORMAT(1X, 'TIME=',F7.3,' S',1X, 'NTREAL=',19,1X, 
& 'TIME=',F7.2,'<O>!',1X, 'ITER=' ,12,1X, 'SOURCE=', 
2 & F9.6,1X, 'SORSUM=',F9.6,1X,' Q(KW) = ',F10.4) 
QKW = ((60.*60.)/(3.412*1000.))* 9 
PRINT 
PRINT *, ' PCURVE PSOUTH PERROR Q 
&CRR OCORRT oe 
PRINT *, PCURVE,PSOUTH, PERROR,QCORR,QCORRT,QKW 
- PRINT * 


ELSE IF( NN .EQ. 2 ) THEN 
PRINT * 


Zao 


ANANDA A AN 


eC 


PRINT *,! TEMPERATURES AT THERMOCOUPLE POSITION IN (C)! 
WRITE (6,%*) (TCOUP(N) ,N=1,NTHCO) 

PRINT 

PRINT * : 


ELSE 
DO 502 L=16,16 


K=L 
ee 502 M=1,NIP1 


=M 
WRIT TE (6. /504) I,K 
504 FORMAT | Oxi" 2 SK tee lox, | T NOD", 3X) 'R(GM/C.C.)' , 2x, 
& 'U(CM/SEC)! ,2X,'V(CM/SEC) ', 2x, aC CH(SEC) 'P (ATM)',5X,'SMP', 5X, 
& 'VIS(SEC/CM-CM)' 3X, 'COND(SEC/CM-CM)',' XSMP',/) 
513 DO 503 J=1,NJP1 
XTEMP=T(I,J .K)/CONST3~ OT ope 








XTEMP= r(1 
Meet. J, RY *oHOO/2.2048 k1000.*(0.0328) **3 
XR=R(I,J,K) 
XU=U(I,J,K)*CONST6 
XV=V(1I,J,K)*CONST6 
XW=W(I,J,K)*CONST6 
XP=(P(1,J,K)*CONST1+REQ(I,J,K)*PINT) 
XP=P(I,J,K 
MU=U(T,3,K 
XV=aV(I,J5,K 
KW=W(I,J,K+1) 
XVIS=VIS(1I,J,K) *RHOO*CPO*H*U0*1 .48814 
RCOND=COND (1, J, K) *RHOO*CPO*H*U0*1 . 48614 
XVIS=VIS(I,J,K)/VISO 
XCOND=COND(I,J,K)/VISO 
XSMP=SMPP(1,J,K) 
DDYY=1./FLOAT(NJM1-2) 
PE = oo ,o,K)*X24V(1,3,K)**24W(1,J, BCE OTS eon mie 
WRITE (6,511)J3, XTEMP, XR, XU, XV, XW, XP, SMP K) ,XVIS, XCOND , XSMP 
511 FORMAT(2X,'J=',13,2X,F6-3, 2X, F6.3,2%, ma Re Se Fa 3 3X 
& ,Fl 3X,F9.6,2X,F6.2, 2%, F6.2, 2X, Fo. Ee 


eZ ; 
503 CONTINUE 
502 CONTINUE 
ENDIF 
RETURN 
END 
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